home *** CD-ROM | disk | FTP | other *** search
/ Aminet 40 / Aminet 40 (2000)(Schatztruhe)[!][Dec 2000].iso / Aminet / mus / play / PlayGUIUpd.lha / PlayGUIUpd / PlayGUI < prev    next >
Text File  |  2000-10-18  |  89KB  |  3,713 lines
  1. G4C;(c) PlayGUI by Richard Kapp 1999-2000 ; MUST BE IN THE FIRST(!) LINE
  2. ;Version 3.0
  3.  
  4. ;Getting started
  5.  
  6. WINBIG 451 423 275 116 "PLAYGUI V.3.a (c) by Richard Kapp 1999-2000"
  7. wintype 01001000
  8. WINFONT PlayGUI.font 8 000
  9.  
  10.  
  11. ;Routinen
  12.  
  13. xROUTINE ENDE
  14.                 
  15.  
  16.  
  17.                 if $THEME = YES
  18.                 CLI 'C:run >NIL: $PLAY16PATH $TQUITSOUND'
  19.                 gosub PlayGUI ENDE2
  20.                 elseif $THEME = NO
  21.                 CLI 'C:run >NIL: $PLAY16PATH $QUITSOUND'
  22.                 gosub PlayGUI ENDE2
  23.                 endif
  24.  
  25.                 xROUTINE ENDE2
  26.  
  27.                 if $AUTOSAVE = YES
  28.                 gosub PathConfig SavePaths
  29.                 endif
  30.                 assign Skins: remove
  31.                 guiquit ShortInfo
  32.                 guiquit SYSInfo
  33.                 guiquit MiniPlay
  34.                 guiquit PGAbout
  35.                 guiquit Voreinstellung
  36.                 guiquit OptionConfig
  37.                 guiquit StartupConfig
  38.                 guiquit PathConfig
  39.                 guiquit P16Config
  40.                 guiquit SetVolume
  41.                 guiquit Themes
  42.                 guiquit QuickMenu
  43.                 guiquit Preview
  44.                 guiquit ThemeCreate
  45.                 guiquit ShowPattern
  46.                 guiquit ShowSkin
  47.                 guiquit ChangeLoop
  48.                 guiquit PlugSet
  49.                 guiquit Sambuff
  50.                 guiquit Createprogress
  51.                 guiquit mpgconfig
  52.                 guiquit PlayGUI
  53.                 guiquit aboutstart
  54.                 guiquit GMPlayconfig
  55.  
  56.                 freeimage haut
  57.                 freeimage Barmod
  58.                 freeimage BarSam
  59.                 freeimage BarOpt
  60.                 freeimage BarVol
  61.                 freeimage GuiPattern
  62.                 freeimage ab
  63.                 freeimage frage
  64.                 freeimage mpgfx
  65.                 freeimage optgfx
  66.                 freeimage mpegagfx
  67.                 freeimage P16gfx
  68.                 freeimage configgfx
  69.                 freeimage quickgfx
  70.                 freeimage modinfogfx
  71.                 freeimage themesgfx
  72.                 freeimage startupgfx
  73.                 freeimage plugingfx
  74.                 freeimage midigfx
  75.  
  76.  
  77. xROUTINE choice
  78.  
  79.        ezReq "No mod to play!" "Shut up!|Select a mod or mpg" what
  80.                 if $what = 1
  81.                 gosub PlayGUI Hopp
  82.                 else
  83.                 gosub if $STARTABOUT = OFF PlayGUI SelectMod
  84.         endif
  85.  
  86. xROUTINE SelectMod
  87.  
  88.         ReqFile 0 0 200 400 "Choose a module..." LOAD module $MODPATH
  89.         ifexists FILE $module
  90.         extract module FILE mody
  91.         update PlayGUI 1 '$mody'
  92.         update PlayGUI 2 'Select mod'
  93.         a = loaded
  94.         else
  95.         ezreq "No mod, mpg or midi selected" "I know!" jep
  96.         endif
  97.         
  98. ;Load new skin
  99.  
  100. xROUTINE NeuHaut
  101.  
  102.         ReqFile 0 0 200 -30 "Choose the skin directory..." DIR SKINSELECT #PlayGUI:Skins
  103.         if $SKINSELECT > ''
  104.         gosub PlayGUI Wechsel
  105.         endif
  106.  
  107. xROUTINE Wechsel
  108.  
  109.         Assign Skins: $SKINSELECT
  110.         IfExists FILE Skins:main.iff
  111.         THEME = NO
  112.         gosub PlayGUI Wechsel2
  113.         else
  114.         ezreq "Cannot find skin.." "Grrr!" grrr
  115.         endif
  116.  
  117. xROUTINE Wechsel2
  118.  
  119.         freeimage BarVol
  120.         freeimage BarOpt
  121.         freeimage BarSam
  122.         freeimage BarMod
  123.         freeimage haut
  124.         loadimage Skins:main.iff haut Workbench
  125.         loadimage Skins:mod_bar BarMod Workbench
  126.         loadimage Skins:sample_bar BarSam Workbench
  127.         loadimage Skins:option_bar BarOpt Workbench
  128.         loadimage Skins:volume_bar BarVol Workbench
  129.  
  130.  
  131.         ChangeImage PlayGUI 4 -1 -1 haut
  132.         ChangeImage PlayGUI 5 -1 -1 BarMod
  133.         ChangeImage PlayGUI 6 -1 -1 BarSam
  134.         ChangeImage PlayGUI 7 -1 -1 BarOpt
  135.         ChangeImage PlayGUI 8 -1 -1 BarVol
  136.  
  137.         redraw PlayGUI
  138.  
  139.         extract SKINSELECT PATH skiny
  140.         if $a = loaded
  141.         and $stop = na
  142.                 update PlayGUI 1 '$mody'
  143.                 update PlayGUI 2 'Playing mod'
  144.                 update PlayGUI 3 ''
  145.                 WAIT PORT "HIPPOPLAYER" 5000
  146.                  SendRexx HIPPOPLAYER "GET TYPE"
  147.                 *typ = $$REXXRET
  148.                  update PlayGUI 3 "$*typ"
  149.                 
  150.         else 
  151.                 update PlayGUI 3 ''
  152.                 update PlayGUI 2 'Selected Skin'
  153.                 update PlayGUI 1 '$skiny'
  154.         endif 
  155.       
  156.  
  157.  
  158. xROUTINE Versteck
  159.         if $but = ja
  160.         Setgad PlayGUI 5/8 HIDE
  161.         Setgad PlayGUI 1/3 HIDE
  162.                redraw PlayGUI
  163.         but = nein
  164.         elseif $but = nein
  165.         ezreq "There's nothing to hide!" "Sure" sure
  166.         endif
  167.  
  168.  
  169.  
  170.  
  171. xROUTINE Zeig
  172.        if $but = nein
  173.        Setgad PlayGUI 5/8 SHOW
  174.        Setgad PlayGUI 1/3 SHOW
  175.        redraw PlayGUI
  176.        but = ja
  177.        elseif $but = ja
  178.        ezreq "There's nothing to show!" "Sure" sure
  179.        endif
  180.  
  181. ;SliderBox
  182. SQUARE 20 71 104 20 0 FILL
  183.  
  184. xonload 
  185.         
  186.         Set help on
  187.         extract PlayGUI guipath PlayGUIpath
  188.         ifexists assign PlayGUI:  ;try to self-locate
  189.         else 
  190.                 assign PlayGUI: $PlayGUIpath
  191.         endif
  192.  
  193.  
  194. ;DEFAULT VARIABLES----------------------------
  195.  
  196.         zeit = 0
  197.         help = off
  198.         c = hippyend
  199.         stop = ja
  200.         stopmpg = ja
  201.         stopmidi = ja
  202.         stumm = laut
  203.         pvol = NO
  204.         vol = 100
  205.         vol2 = 50
  206.         short = nope
  207.         but = ja
  208.         GuiPattern = PlayGUI:SYS/Patterns/PGpattern
  209.         STARTSOUND = PlayGUI:SYS/Sounds/SoundStart
  210.         QUITSOUND = PlayGUI:SYS/Sounds/SoundEnd
  211.         HIPPOPATH = RAM:
  212.         PLAY16PATH = C:Play16
  213.         MODPATH = RAM:
  214.         SKINSELECT = PLAYGUI:SKINS/Standard/
  215.         SAMPLEPATH = RAM:
  216.         LAUNCHPATH = RAM:
  217.         PLONEPATH = PLAYGUI:PlugIns/Plone/
  218.         SKINNERPATH = PLAYGUI:PlugIns/Skinner/
  219.         SCOPEPATH = RAM:
  220.         COPYPATH = RAM:
  221.         COPYPATH2 = RAM:
  222.         MPGCOPYPATH = RAM:
  223.         MIDICOPYPATH = RAM:
  224.         YAMPATH = YAM:yam
  225.         BROWSERPATH = RAM:
  226.         AUTOPLAY = NO
  227.         AUTOSAVE = NO
  228.         PLONESTART = NO
  229.         STARTMODINFO = NO
  230.         P16LOOP = 1
  231.         P16FILTER = OFF
  232.         THEME = NO
  233.         THEMEPATH = PlayGUI:Themes/
  234.         TQUITSOUND = PlayGUI:SYS/Sounds/SoundEnd
  235.         TSTARTSOUND = PlayGUI:SYS/Sounds/SoundStart
  236.         SAMAUTO = OFF
  237.         OUTPUT = Paula8
  238.         SAMPLEBUFFER = 65536
  239.  
  240.         MPEGAPATH = c:mpega
  241.         freq = 2
  242.         quality = 1
  243.         number = 20009
  244.         audiofilter = 0
  245.         audiobuffer = 1
  246.         buffersize = 16
  247.         priority = 0
  248.         MODSTARTUP = OFF
  249.         STARTMOD = OFF
  250.         STARTMODULE = RAM:
  251.         STARTABOUT = ON
  252.  
  253.         GMPLAYPATH = RAM:
  254.         gmfreq = 28867
  255.         gmvol = 64
  256.         gmbuffer = 16
  257.         gmpoly = 64
  258.         gmpriority = 0
  259.         gmfilter = NOFILTER
  260.  
  261.         playtimer = yes
  262.  
  263.         ;LOAD PLAYGUI CONFIGURATION
  264.         ;--------------------------
  265.  
  266.         ifexists file PlayGUI:SYS/PlayGUIconfig
  267.         guiload PLAYGUI:SYS/PlayGUIconfig
  268.         update PlayGUI 2 'WELCOME TO'
  269.         update PlayGUI 1 'PlayGUI v.3.0!'
  270.         update PlayGUI 3 '- made by R. Kapp'
  271.  
  272.         else
  273.         ezreq "Cannot find config - Please configure PlayGUI!" "I will do!" do
  274.         update PlayGUI 2 'WELCOME TO'
  275.         update PlayGUI 1 'PlayGUI v.3.0!'
  276.         update PlayGUI 3 '- made by R. Kapp'
  277.         endif
  278.  
  279.         ;Graphiken laden
  280.         loadimage PLAYGUI:SYS/Images/Start.iff ab Workbench
  281.         loadimage PlayGUI:SYS/Images/Req.iff frage Workbench
  282.         loadimage PlayGUI:SYS/Images/mp3.iff mpgfx Workbench
  283.         loadimage PLAYGUI:SYS/Images/optiongfx.iff optgfx Workbench
  284.         loadimage PLAYGUI:SYS/Images/mpegagfx.iff mpegagfx Workbench
  285.         loadimage PLAYGUI:SYS/Images/p16gfx.iff P16gfx Workbench
  286.         loadimage PLAYGUI:SYS/Images/configgfx.iff configgfx Workbench
  287.         loadimage PLAYGUI:SYS/Images/quickgfx.iff quickgfx Workbench
  288.         loadimage PLAYGUI:SYS/Images/startupgfx.iff startupgfx Workbench
  289.         loadimage PLAYGUI:SYS/Images/themesgfx.iff themesgfx Workbench
  290.         loadimage PLAYGUI:SYS/Images/modinfogfx.iff modinfogfx Workbench
  291.         loadimage PLAYGUI:SYS/Images/plugingfx.iff plugingfx Workbench
  292.         loadimage PLAYGUI:SYS/Images/midigfx.iff midigfx Workbench
  293.  
  294.         ; Abfrage, ob ein MOD gestartet werden soll
  295.         ;------------------------------------------
  296.         If $STARTMOD = ON
  297.         gosub PlayGUI startmodfrage
  298.         elseif $STARTMOD = OFF
  299.         gosub PlayGUI aboutabfrage
  300.         endif
  301.  
  302. xROUTINE startmodfrage
  303.  
  304.  
  305.         if $STARTABOUT = OFF
  306.         gosub PlayGUI Startmodcont
  307.         else
  308.         gosub PlayGUI aboutabfrage
  309.         endif
  310.  
  311.         xROUTINE Startmodcont
  312.  
  313.         ifexists FILE $STARTMODULE
  314.         c = hippy
  315.         a = loaded
  316.         stop = na
  317.         extract STARTMODULE FILE *mody
  318.         Update PlayGUI 300 '{'
  319.         CLI 'C:run >NIL: $HIPPOPATH hide $STARTMODULE'
  320.         update PlayGUI 1 '$*mody'
  321.         update PlayGUI 2 "Playing mod"
  322.         gosub PlayGUI Themeabfrage
  323.         else
  324.         ezreq "Can't find startmod!" "Okay" ok
  325.         gosub PlayGUI Themeabfrage
  326.         endif
  327.          
  328.         xROUTINE aboutabfrage
  329.  
  330.         if $STARTABOUT = ON
  331.         CLI 'C:run >NIL: $PLAY16PATH PlayGUI:SYS/introsound.iff'
  332.         guiopen aboutstart
  333.         gosub PlayGUI Themeabfrage
  334.         elseif $STARTABOUT = OFF
  335.         gosub PlayGUI Themeabfrage
  336.         endif
  337.  
  338.         ;--------------------------
  339.         ;LOAD THEME
  340.         ;--------------------------
  341.  
  342.         xROUTINE Themeabfrage
  343.  
  344.         if $THEME = YES
  345.         gosub PlayGUI ThemeAb
  346.         elseif $THEME = NO
  347.         gosub PlayGUI NormalInit
  348.         endif
  349.  
  350.         xROUTINE ThemeAb
  351.  
  352.         ifexists DIR $THEMEPATH
  353.         gosub PlayGUI ThemeLoad
  354.         else
  355.         ezreq "Cannot find theme!" "ok" ok
  356.         gosub PlayGUI NormalInit
  357.         endif
  358.  
  359.         xROUTINE ThemeLoad
  360.         assign Themes: $THEMEPATH
  361.  
  362.         ifexists FILE Themes:Pattern/PGPattern
  363.         loadimage Themes:Pattern/PGpattern GuiPattern Workbench
  364.         gosub PlayGUI SoundStartNext
  365.         else
  366.         ezreq "Cannot find theme elements!" "Ok" ok
  367.         gosub PlayGUI NormalInit
  368.         endif
  369.  
  370.         xROUTINE SoundStartNext
  371.         ifexists FILE Themes:Sounds/SoundStart
  372.         gosub PlayGUI SoundQuitNext
  373.         else
  374.         ezreq "Cannot find start sound!" "Ok" ok
  375.         gosub PlayGUI NormalInit
  376.         endif
  377.  
  378.         xROUTINE SoundQuitNext
  379.         ifexists FILE Themes:Sounds/SoundEnd
  380.         gosub PlayGUI SkinNext
  381.         else
  382.         ezreq "Cannot find quit sound!" "Ok" ok
  383.         gosub PlayGUI NormalInit
  384.         endif
  385.  
  386.         xROUTINE SkinNext
  387.         ifexists FILE Themes:Skin/main.iff
  388.         assign Skins: Themes:Skin/
  389.         ;loadimage PLAYGUI:SYS/Start.iff ab Workbench
  390.         gosub PlayGUI LadeThemeSkin
  391.         else
  392.         ezreq "Cannot find skin!" "Ok" ok
  393.         gosub PlayGUI NormalInit
  394.         endif
  395.  
  396.         xROUTINE LadeThemeSkin
  397.  
  398.         loadimage Skins:main.iff haut Workbench
  399.  
  400.         loadimage Skins:mod_bar BarMod Workbench
  401.  
  402.         loadimage Skins:sample_bar BarSam Workbench
  403.  
  404.         loadimage Skins:option_bar BarOpt Workbench
  405.  
  406.         loadimage Skins:volume_bar BarVol Workbench
  407.  
  408.         gosub PlayGUI Init
  409.  
  410.  
  411.         xROUTINE NormalInit
  412.  
  413.         ifexists FILE $GuiPattern
  414.         loadimage $GuiPattern GuiPattern Workbench
  415.         gosub PlayGUI StartUpInit
  416.         else
  417.         ezreq "Cannot find pattern! Loading default..." "Ok" ok
  418.         loadimage PlayGUI:SYS/Patterns/PGPattern GuiPattern Workbench
  419.         gosub PlayGUI StartUpInit
  420.         endif
  421.  
  422.  
  423.  
  424.         
  425.  
  426.         IfExists DIRECTORY $SKINSELECT
  427.  
  428.                 assign Skins: $SKINSELECT
  429.  
  430.         else 
  431.                 EzReq "Cannot find skin - Loading default..." "Really?" ok
  432.                 assign Skins: PlayGUI:Skins/standard
  433.         EndIf 
  434.  
  435.         loadimage Skins:main.iff haut Workbench
  436.         
  437.         loadimage Skins:mod_bar BarMod Workbench
  438.         
  439.         loadimage Skins:sample_bar BarSam Workbench
  440.        
  441.         loadimage Skins:option_bar BarOpt Workbench
  442.        
  443.         loadimage Skins:volume_bar BarVol Workbench
  444.  
  445.         gosub PlayGUI Init
  446.  
  447.         xROUTINE Init
  448.  
  449.         if $STARTMOD = ON
  450.         gosub PlayGUI PGInit
  451.         else
  452.         gosub PlayGUI themefrage
  453.         endif
  454.  
  455.         xROUTINE themefrage
  456.  
  457.         if $STARTABOUT = ON
  458.         gosub PlayGUI PGInit
  459.         else
  460.         gosub PlayGUI themeteil2
  461.         endif
  462.  
  463.         xROUTINE themeteil2
  464.  
  465.         if $THEME = YES
  466.         CLI 'C:run >NIL: $PLAY16PATH $TSTARTSOUND'
  467.         gosub PlayGUI PGInit
  468.         elseif $THEME = NO
  469.         CLI 'C:run >NIL: $PLAY16PATH $STARTSOUND'
  470.         gosub PlayGUI PGInit
  471.         endif
  472.  
  473.         xROUTINE PGInit
  474.  
  475.         GuiOpen PlayGUI
  476.         gosub PlayGUI StartUpInit
  477.  
  478.         xROUTINE StartUpInit
  479.  
  480.         If $PLONESTART = YES
  481.         gosub PlayGUI StartPloneNow
  482.         endif
  483.  
  484.         If $STARTMODINFO = YES
  485.         gosub PlayGUI StartModInfo
  486.         endif
  487.  
  488.         xROUTINE StartPloneNow
  489.         IfExists DIRECTORY $PLONEPATH
  490.         assign GUIPlone: $PLONEPATH
  491.         GuiLoad GUIPlone:Plone
  492.         else
  493.         ezreq "Cannot find Plone! Set the correct path first!" "Ok!" ok
  494.         endif
  495.  
  496.         xROUTINE StartModInfo
  497.         short = yep
  498.  
  499.         GuiOpen ShortInfo
  500.  
  501.  
  502.  
  503.  
  504. IMAGE 0 0 haut
  505.         gadid 4
  506. IMAGE 15 85 BarMod
  507.         gadid 5
  508. IMAGE 153 22 BarSam
  509.         gadid 6
  510. IMAGE 160 85 BarOpt
  511.         gadid 7
  512. IMAGE 15 68 BarVol
  513.         gadid 8
  514.  
  515. BOX 0 0 275 116 out button
  516.  
  517.  
  518.  
  519. xROUTINE Hopp
  520.         stop = na
  521.  
  522.  
  523. ;SliderBox
  524. SQUARE 20 71 104 7 0 FILL
  525.  
  526.  
  527. XTIMER repeat 0:0:01 OFF
  528. ++zeit
  529. ;min = $(abs($zeit /60))
  530. ;sec = $($zeit -($min *60))
  531. update PlayGUI 2 'Playing   Time:$zeit sec'
  532. if $short = yep
  533. SendRexx HIPPOPLAYER 'GET CSPO'
  534. *curr = $$REXXRET
  535. update ShortInfo 15 "CURRENT POSITION: $*curr"
  536. endif
  537. gadid 200
  538.  
  539.  
  540.  
  541.  
  542. ;VOLUME-SLIDER
  543.  
  544.  
  545. XHSLIDER 19 71 108 8 '' vol 0 64 64 ''
  546.  
  547.         if $a = loaded
  548.         and $c = hippy
  549.         SendRexx HIPPOPLAYER VOLUME=$vol
  550.         gosub PlayGUI VolMeter
  551.         elseif $d = Play16
  552.         gosub PlayGUI VolMeter
  553.         endif
  554.  
  555.         xROUTINE VolMeter
  556.  
  557.         if $vol = 0
  558.         update PlayGUI 3 "VOL:OFF"
  559.         DELAY 5
  560.         endif
  561.  
  562.         if $vol > 0
  563.         update PlayGUI 3 "VOL:$vol ||"
  564.         DELAY 5
  565.         endif
  566.  
  567.         if $vol >= 8
  568.         update PlayGUI 3 "VOL:$vol ||||"
  569.         DELAY 5
  570.         endif
  571.  
  572.         if $vol >= 24
  573.         update PlayGUI 3 "VOL:$vol ||||||"
  574.         DELAY 5
  575.         endif
  576.  
  577.         if $vol >= 30
  578.         update PlayGUI 3 "VOL:$vol ||||||||"
  579.         DELAY 5
  580.         endif
  581.  
  582.         if $vol >= 36
  583.         update PlayGUI 3 "VOL:$vol ||||||||||"
  584.         DELAY 5
  585.         endif
  586.  
  587.         if $vol >= 42
  588.         update PlayGUI 3 "VOL:$vol ||||||||||||"
  589.         DELAY 5
  590.         endif
  591.  
  592.         if $vol >= 48
  593.         update PlayGUI 3 "VOL:$vol ||||||||||||||"
  594.         DELAY 5
  595.         endif
  596.  
  597.         if $vol >= 54
  598.         update PlayGUI 3 "VOL:$vol ||||||||||||||||"
  599.         DELAY 5
  600.         endif
  601.  
  602.         if $vol >= 60
  603.         update PlayGUI 3 "VOL:$vol ||||||||||||||||||"
  604.         DELAY 5
  605.         endif
  606.  
  607.         if $vol = 64
  608.         update PlayGUI 3 "VOL:MAX |||||||||||||||||||||"
  609.         DELAY 5
  610.         endif
  611.  
  612.         DELAY 50
  613.         update PlayGUI 3 "$*typ"
  614.  
  615. ;PLAYGUIMENUS
  616.  
  617. xMenu 'PLAYGUI' 'About' '' 'a'
  618.    
  619.         GuiOpen PGAbout
  620.  
  621.  
  622. xMenu 'PLAYGUI' 'HELP' '' 'H'
  623. ezreq 'Do you want the german or the english one?' 'German|English' sprache
  624. if $sprache = 1
  625. gosub PlayGUI Sprachwahld
  626. else
  627. gosub PlayGUI Sprachwahle
  628. endif
  629.  
  630. xROUTINE Sprachwahld
  631. ifexists FILE SYS:Utilities/Multiview
  632. CLI 'C:run >NIL: SYS:Utilities/Multiview PlayGUI:Docs/PlayGUI.german'
  633. else
  634. ezreq "You need Multiview in SYS:Utilities!" "Oh my god!" god
  635. endif
  636.  
  637. xROUTINE Sprachwahle
  638. ifexists FILE SYS:Utilities/Multiview
  639. CLI 'C:run >NIL: SYS:Utilities/Multiview PlayGUI:Docs/PlayGUI.guide'
  640. else
  641. ezreq "You need Multiview in SYS:Utilities!" "Oh my god!" god
  642. endif
  643.  
  644. xROUTINE mini
  645.        guiclose PlayGUI
  646.        guiopen MiniPlay
  647.  
  648.  
  649. xMenu 'PLAYGUI' 'Iconify' '' 'I'
  650.         setgad #this 55 ON ; show appicon
  651.         guiclose #this
  652.  
  653.  
  654. xMenu 'PLAYGUI' 'MiniPlay' '' '-'
  655.         
  656.         gosub PlayGUI mini
  657.  
  658.  
  659.  
  660. xAppIcon 10 10 :PlayGui PlayGui '' OFF
  661.         GadID 55
  662.         GuiOpen playgui
  663.         GuiScreen playgui FRONT
  664.         setgad #this 55 OFF ; hide appicon
  665.  
  666. xMenu 'PLAYGUI' 'SYSInfo' '' ''
  667.        guiopen SYSInfo
  668.  
  669. xMenu PLAYGUI BARLABEL '' ''
  670.  
  671. xMenu 'PLAYGUI' 'Quit' '' ''
  672.         gosub PlayGUI DASENDE
  673.  
  674. xMenu 'PLAYGUI' 'Quickquit' '' 'q'
  675.  
  676.         if $AUTOSAVE = YES
  677.         gosub PathConfig SavePaths
  678.         endif
  679.  
  680.         if $c = hippy
  681.         gosub PlayGUI QENDE
  682.         elseif $stopmpg = na
  683.         BreakTask $MPEGAPATH C
  684.         gosub PlayGUI ENDE
  685.          elseif $d = play16
  686.                 BreakTask $PLAY16PATH C
  687.                 gosub PlayGUI ENDE
  688.         elseif $stopmidi = na
  689.         BreakTask $GMPLAYPATH C
  690.         gosub PlayGUI ENDE
  691.         elseif $c = Hipppyend
  692.                 gosub PlayGUI ENDE
  693.         else
  694.                 gosub PlayGUI ENDE
  695.  
  696.                 endif
  697.  
  698.                 xROUTINE QENDE
  699.                 CLI 'C:run >NIL: $HIPPOPATH quit'
  700.                 if $THEME = YES
  701.                 CLI 'C:run >NIL: $PLAY16PATH $TQUITSOUND'
  702.                 gosub PlayGUI ENDE4
  703.                 elseif $THEME = NO
  704.                 CLI 'C:run >NIL: $PLAY16PATH $QUITSOUND'
  705.                 gosub PlayGUI ENDE4
  706.                 endif
  707.  
  708.                 xROUTINE ENDE4
  709.                 
  710.  
  711.                 freeimage haut
  712.                 freeimage Barmod
  713.                 freeimage BarSam
  714.                 freeimage BarOpt
  715.                 freeimage BarVol
  716.                 freeimage GuiPattern
  717.                 freeimage ab
  718.                 freeimage frage
  719.                 freeimage mpgfx
  720.                 freeimage optgfx
  721.                 freeimage mpegagfx
  722.                 freeimage P16gfx
  723.                 freeimage configgfx
  724.                 freeimage quickgfx
  725.                 freeimage modinfogfx
  726.                 freeimage themesgfx
  727.                 freeimage startupgfx
  728.                 freeimage plugingfx
  729.                 freeimage midigfx
  730.                 assign Skins: remove
  731.                 guiquit ShortInfo
  732.                 guiquit SYSInfo
  733.                 guiquit MiniPlay
  734.                 guiquit PGAbout
  735.                 guiquit Voreinstellung
  736.                 guiquit OptionConfig
  737.                 guiquit StartupConfig
  738.                 guiquit PathConfig
  739.                 guiquit P16Config
  740.                 guiquit SetVolume
  741.                 guiquit Themes
  742.                 guiquit QuickMenu
  743.                 guiquit Preview
  744.                 guiquit ThemeCreate
  745.                 guiquit ShowPattern
  746.                 guiquit ShowSkin
  747.                 guiquit ChangeLoop
  748.                 guiquit PlugSet
  749.                 guiquit Sambuff
  750.                 guiquit Createprogress
  751.                 guiquit mpgconfig
  752.                 guiquit PlayGUI
  753.                 guiquit aboutstart
  754.                 guiquit GMPlayconfig
  755. ;OPTIONMENU
  756.  
  757. xMenu 'OPTIONS' 'Select new SKIN' '' 's'
  758.         GOSUB PlayGUI NeuHaut
  759.  
  760. xMenu 'OPTIONS' 'Save SKIN as default' '' ''
  761.  
  762.         gosub PathConfig SavePaths
  763.  
  764. xMenu OPTIONS BARLABEL '' ''
  765.  
  766. xMenu 'OPTIONS' 'Buttons' 'Hide' ''
  767.         GOSUB PlayGUI Versteck
  768.  
  769. xMenu 'OPTIONS' 'Buttons' 'Show' ''
  770.         GOSUB PlayGUI Zeig
  771.  
  772.         
  773.  
  774.  
  775. xMenu OPTIONS BARLABEL '' ''
  776.  
  777.  
  778. xMenu 'OPTIONS' 'Launch' '' 'l'
  779.         ReqFile 0 0 200 400 "Choose a music-tool..." LOAD tool $LAUNCHPATH
  780.         CLI 'C:RUN >NIL: $tool'
  781.  
  782. xMENU 'OPTIONS' 'Choose Scope' '' 'y'
  783. ReqFile 0 0 200 400 "Choose a scope..." LOAD scope $SCOPEPATH
  784.         CLI 'C:RUN >NIL: $scope'
  785.  
  786.  
  787. xMENU OPTIONS BARLABEL '' ''
  788.  
  789. xMENU 'OPTIONS' 'Copy song to favourite dir' '' 'd'
  790. if $a = loaded
  791. or $m = loaded
  792. or $gm = loaded
  793. gosub PlayGUI ModCopylos
  794. else
  795. ezreq 'There is no mod in memory!' 'You are right!' righty
  796. endif
  797.  
  798. XROUTINE ModCopylos
  799. ezreq "Which path?" "MOD|MPG|MIDI|Cancel" art
  800. if $art = 3
  801. gosub PlayGUI midikopie
  802. elseif $art = 1
  803. gosub PlayGUI modkopie
  804. elseif $art = 2
  805. gosub PlayGUI mp3kopie
  806. elseif $art = 0
  807. endif
  808.  
  809. xROUTINE Modkopie
  810. ifexists DIR $COPYPATH
  811. CLI 'C:Copy $module to $COPYPATH'
  812. ezReq 'Finished!' 'Good' good
  813. else
  814. ezreq "DIR not found!" "Fine!" fine
  815. endif
  816.  
  817. xROUTINE mp3kopie
  818. ifexists DIR $MPGCOPYPATH
  819. CLI 'C:Copy $module to $MPGCOPYPATH'
  820. ezReq 'Finished!' 'Good' good
  821. else
  822. ezreq "DIR not found!" "Fine!" fine
  823. endif
  824.  
  825. xROUTINE midikopie
  826. ifexists DIR $MIDICOPYPATH
  827. CLI 'C:Copy $module to $MIDICOPYPATH'
  828. ezReq 'Finished!' 'Good' good
  829. else
  830. ezreq "DIR not found!" "Fine!" fine
  831. endif
  832.  
  833. xMENU 'OPTIONS' 'Copy to sample dir' '' ''
  834. if $b = loaded
  835. gosub PlayGUI SampleCopy
  836. else
  837. ezreq "There is no sample in memory!" "You are right!" righty
  838. endif
  839.  
  840. XRoutine SampleCopy
  841. ifexists FILE $sample
  842. gosub PlayGUI SampleCopylos
  843. else
  844. ezreq "Sample not found!" "Ok" ok
  845. endif
  846.  
  847. xROUTINE SampleCopylos
  848. ifexists DIR $COPYPATH2
  849. CLI 'C:Copy $sample to $COPYPATH2'
  850. ezReq 'Finished!' 'Good' good
  851. else
  852. ezreq "DIR not found!" "Argh!" argh
  853. endif
  854.  
  855. xMENU 'OPTIONS' 'LHA add song' '' ''
  856. if $a = loaded
  857. gosub PlayGUI ArchiveGo
  858. else
  859. ezreq "There's no MOD in memory!" "Sure!" sure
  860. endif
  861.  
  862. XRoutine ArchiveGo
  863. reqfile -1 -1 400 200 "Give path and filename for LHA archive" LOAD modarch RAM:
  864. ifexists FILE C:LHA
  865. CLI 'C:LHA -h a $modarch $module'
  866. ezreq "Finished LHA adding!" "Goodygood!" goodygood
  867. else
  868. ezreq "You need LHA in C!" "Oh yes!" oh
  869. endif
  870.  
  871. xMENU 'OPTIONS' 'Autoplay' 'ON' ''
  872. AUTOPLAY = YES
  873.  
  874. xMENU 'OPTIONS' 'Autoplay' 'OFF' ''
  875. AUTOPLAY = NO
  876.  
  877. xMenu 'OPTIONS' 'Show Playtime' 'ON' ''
  878. playtimer = yes
  879.  
  880. xMenu 'OPTIONS' 'Show Playtime' 'OFF' ''
  881. playtimer = no
  882.  
  883. xMENU 'MODINFO' 'INFO Window' '' '+'
  884.         short = yep
  885.         if $a = loaded
  886.         and $c = hippy
  887.  
  888.         update ShortInfo 10 "NAME: $*mody"
  889.         update ShortInfo 11 "MODTYPE: $*typ"
  890.         update ShortInfo 12 "SIZE: $*size bytes"
  891.         if $*time = 0
  892.         update ShortInfo 13 "TIME: Not available"
  893.         else
  894.         update ShortInfo 13 "TIME: $*time seconds"
  895.         endif
  896.         if $*max = 0
  897.         update ShortInfo 14 "MAXIMAL POSITION: Not available"
  898.         else
  899.         update ShortInfo 14 "MAXIMAL POSITION: $*max"
  900.         endif
  901.         update ShortInfo 15 "CURRENT POSITION: $*curr"
  902.         endif
  903.         GOSUB PlayGUI AllInfo
  904.  
  905. xMenu MODINFO BARLABEL '' ''
  906.  
  907. xMENU 'MODINFO' 'Playtime' '' ''
  908.         if $a = loaded
  909.         and $c = hippy
  910.         GOSUB PlayGUI TimeInfo
  911.         else
  912.         ezreq "Play a mod first!" "Jep!" jep
  913.         endif
  914.  
  915. xMENU 'MODINFO' 'Modsize' '' ''
  916.         if $a = loaded
  917.         and $c = hippy
  918.         GOSUB PlayGUI SizeInfo
  919.         else
  920.         ezreq "Play a mod first!" "Jep!" jep
  921.         endif
  922.  
  923. xMENU 'MODINFO' 'Modtype' '' ''
  924.         if $a = loaded
  925.         and $c = hippy
  926.         WAIT PORT "HIPPOPLAYER" 5000
  927.                  SendRexx HIPPOPLAYER "GET TYPE"
  928.                 *typ = $$REXXRET
  929.                  update PlayGUI 3 "$*typ"
  930.         else
  931.         ezreq "Play a mod first!" "Jep!" jep
  932.         endif
  933.  
  934. xMENU 'MODINFO' 'Current Songposition' '' ''
  935.         if $a = loaded
  936.         and $c = hippy
  937.         GOSUB PlayGUI CurrentInfo
  938.         else
  939.         ezreq "Play a mod first!" "Jep!" jep
  940.         endif
  941.  
  942. xMENU 'MODINFO' 'Max Songposition' '' ''
  943.         if $a = loaded
  944.         and $c = hippy
  945.         GOSUB PlayGUI MaxInfo
  946.         else
  947.         ezreq "Play a mod first!" "Jep!" jep
  948.         endif
  949.  
  950. xMenu 'SOUND' '8 BIT Soundquality' '' '8'
  951.         
  952.         CLI 'delete S:HippoPlayer.prefs QUIET'
  953.         CLI 'Copy PlayGUI:SoundPrefs/8Bit/HippoPlayer.prefs to S:'
  954.         Update PlayGUI 3 "Soundquality=8BIT"
  955.  
  956. xMenu 'SOUND' '14 BIT Soundquality' '' '4'
  957.  
  958.         CLI 'delete S:HippoPlayer.prefs QUIET'
  959.         CLI 'Copy PlayGUI:SoundPrefs/14Bit/HippoPlayer.prefs to S:'
  960.         Update PlayGUI 3 "Soundquality=14BIT"
  961.  
  962. xMENU 'SOUND' 'AHI Prefs' '' '6'
  963.  
  964.         CLI 'delete S:HippoPlayer.prefs QUIET'
  965.         CLI 'Copy PlayGUI:SoundPrefs/AHI/HippoPlayer.prefs to S:'
  966.         Update PlayGUI 3 "Soundquality=16BIT"
  967.  
  968. xMENU 'SOUND' 'USER Prefs' '' 'u'
  969.         
  970.         CLI 'delete S:HippoPlayer.prefs QUIET'
  971.         CLI 'Copy PlayGUI:SoundPrefs/USER/HippoPlayer.prefs to S:'
  972.         Update PlayGUI 3 "Soundquality=USER"
  973.  
  974. xMenu 'MODS' 'Eject' '' 'e'
  975.         gosub PlayGUI SelMod
  976.  
  977. xMenu 'MODS' 'Play' '' 'p'
  978.  
  979.         gosub PlayGUI ModorMpg
  980.  
  981.  
  982. xMenu 'MODS' 'Pause/Continue' '' 'z'
  983.         gosub PlayGUI PausCont
  984.  
  985. xMenu 'MODS' 'Stop' '' 'x'
  986.         gosub PlayGUI StopMod
  987.         
  988.  
  989. xMenu 'MODS' 'Forward' '' 'f'
  990.  
  991.         if $a = loaded
  992.         and $c = hippy
  993.                 SendRexx HIPPOPLAYER FFWD
  994.         else
  995.                 gosub PlayGUI Hopp
  996.         endif
  997.  
  998. xMenu 'MODS' 'Rewind' '' 'r'
  999.         if $a = loaded
  1000.         and $c = hippy
  1001.                 SendRexx HIPPOPLAYER REW
  1002.         else
  1003.                 gosub PlayGUI Hopp
  1004.         endif
  1005.  
  1006. xMENU 'MODS' BARLABEL '' ''
  1007.  
  1008. xMENU 'MODS' 'Mute' '' 'm'
  1009.  
  1010.         gosub PlayGUI Ruhe
  1011.  
  1012. xMENU 'MODS' 'Personal Volume' '' 'v'
  1013.         gosub PlayGUI PersVol
  1014.  
  1015. xMENU 'Play16' 'Load sample' '' ''
  1016.         ReqFile 0 0 200 400 "Choose a sample..." LOAD sample $SAMPLEPATH
  1017.         b = loaded
  1018.         extract sample FILE sname
  1019.         update PlayGUI 1 '$sname'
  1020.         update PlayGUI 2 'Selected sample'
  1021.         update PlayGUI 3 'AUTOPLAY = $SAMAUTO'
  1022.         gosub PlayGUI Autoabfrage
  1023.  
  1024.         xROUTINE Autoabfrage
  1025.         if $b = loaded
  1026.         and $SAMAUTO = ON
  1027.         gosub PlayGUI PLAY16SAMPLE
  1028.         else
  1029.         endif
  1030.  
  1031.         
  1032.  
  1033. xMenu 'Play16' 'Copy sample to...' '' ''
  1034.        if $b = loaded
  1035.        and $sample > ''
  1036.        gosub PlayGUI fragsamdest
  1037.        else
  1038.        ezreq "There's no sample in memory!" "You are right!" right
  1039.        endif
  1040.  
  1041.        XROUTINE fragsamdest
  1042.        Reqfile 0 0 200 400 "Just choose destination dir...(no filename!)" SAVE samdest RAM:
  1043.        ezreq "Really copy to this location?" "Yes|Nope" tja
  1044.        if $tja = 1
  1045.        gosub PlayGUI asksamcopy
  1046.        elseif $tja = 0
  1047.        endif
  1048.  
  1049.        xROUTINE asksamcopy
  1050.        ifexists DIR $samdest
  1051.        cli 'C:copy $sample to $samdest QUIET'
  1052.        ezreq "Finished!" "Very good!" good
  1053.        else
  1054.        ezreq "Cannot find destination dir!" "Oh! Sorry!" sorry
  1055.        endif
  1056.  
  1057.  
  1058. xMENU 'Play16' 'Autoplay' 'ON' ''
  1059.  
  1060.         SAMAUTO = ON
  1061.         update PlayGUI 3 'AUTOPLAY = $SAMAUTO'
  1062.  
  1063. xMENU 'Play16' 'Autoplay' 'OFF' ''
  1064.  
  1065.         SAMAUTO = OFF
  1066.         update PlayGUI 3 'AUTOPLAY = $SAMAUTO'
  1067.  
  1068. xMENU 'Play16' 'Loop Samples' 'ON' '0'
  1069.  
  1070.         
  1071.         
  1072.         P16LOOP = 0
  1073.  
  1074.         update PlayGUI 1 "LOOP: ON"
  1075.  
  1076.  
  1077. xMENU 'Play16' 'Loop Samples' 'OFF' '1'
  1078.  
  1079.         
  1080.         P16LOOP = 1
  1081.  
  1082.         update PlayGUI 1 "LOOP: OFF"
  1083.  
  1084. xMENU 'Play16' 'Filter' 'ON' '2'
  1085.  
  1086.         P16FILTER = ON
  1087.  
  1088.         update PlayGUI 3 "FILTER: ON"
  1089.  
  1090.  
  1091.  
  1092. xMENU 'Play16' 'Filter' 'OFF' '3'
  1093.         
  1094.         P16FILTER = OFF
  1095.  
  1096.         update PlayGUI 3 "FILTER: OFF"
  1097.  
  1098.  
  1099. xMENU 'Play16' 'Output' 'Paula8' ''
  1100.  
  1101.         OUTPUT = Paula8
  1102.  
  1103.         update PlayGUI 3 "OUTPUT: Paula 8bit"
  1104.  
  1105. xMENU 'Play16' 'Output' 'Paula14' ''
  1106.  
  1107.         OUTPUT = Paula14
  1108.  
  1109.         update PlayGUI 3 "OUTPUT: Paula 14bit"
  1110.  
  1111. xMENU 'Play16' 'Output' 'Paula14c' ''
  1112.  
  1113.         OUTPUT = Paula14c
  1114.  
  1115.         update PlayGUI 3 "OUTPUT: Paula 14 bit cal."
  1116.  
  1117. xMENU 'Play16' 'Output' 'MPro' ''
  1118.  
  1119.         OUTPUT = MPro
  1120.  
  1121.         update PlayGUI 3 "OUTPUT: Maestro Pro"
  1122.  
  1123. xMENU 'Play16' 'Output' 'AHI' ''
  1124.  
  1125.         OUTPUT = AHI
  1126.  
  1127.         update PlayGUI 3 "OUTPUT: AHI"
  1128.  
  1129.  
  1130. xMENU Play16 BARLABEL '' ''
  1131.  
  1132.  
  1133. xMENU 'Play16' 'Convert to 8SVX' '' ''
  1134.  
  1135.         OUTPUT = 8SVX
  1136.  
  1137.         Update PlayGUI 3 "CONVERT MODE"
  1138.  
  1139.  
  1140. xMENU 'Play16' 'Set sample buffer' '' ''
  1141.         Update Sambuff 1 'Buffer:$SAMPLEBUFFER'
  1142.         guiopen Sambuff
  1143.  
  1144. xMENU 'Play16' 'Change Loop' '' ''
  1145.         Update ChangeLoop 1 'Loops:$P16LOOP'
  1146.         guiopen ChangeLoop
  1147.  
  1148.  
  1149.  
  1150. xMenu Play16 BARLABEL '' ''
  1151.  
  1152.  
  1153. xMENU 'Play16' 'Save Prefs' '' ''
  1154.         gosub PathConfig SavePaths
  1155.  
  1156. xMENU 'THEMES' 'Load Theme' '' ''
  1157.        gosub PlayGUI ThemeAuswahl
  1158.  
  1159.        xROUTINE ThemeAuswahl
  1160.  
  1161.        ReqFile 0 0 200 400 "Choose theme dir..." DIR THEMEPATH #PLAYGUI:Themes/
  1162.        gosub PlayGUI OpenTheme
  1163.  
  1164.        xROUTINE OpenTheme
  1165.  
  1166.        THEME = YES
  1167.        ifexists DIR $THEMEPATH
  1168.        gosub PlayGUI NewThemeLoad
  1169.        else
  1170.        ezreq "Cannot find theme!" "ok" ok
  1171.        endif
  1172.  
  1173.        xROUTINE NewThemeLoad
  1174.        assign Themes: $THEMEPATH
  1175.        ifexists FILE Themes:Pattern/PGpattern
  1176.        freeimage GuiPattern
  1177.        loadimage Themes:Pattern/PGpattern GuiPattern Workbench
  1178.        gosub PlayGUI DoQuitSound
  1179.        else
  1180.        ezreq "Cannot find theme element!" "Ok" ok
  1181.        endif
  1182.  
  1183.        xROUTINE DoQuitSound
  1184.  
  1185.        ifexists FILE Themes:Sounds/SoundEnd
  1186.        TQUITSOUND = Themes:Sounds/SoundEnd
  1187.        gosub PlayGUI DoStartSound
  1188.        else
  1189.        ezreq "Cannot find quit sound!" "Ok" ok
  1190.        endif
  1191.  
  1192.  
  1193.        xROUTINE DoStartSound
  1194.        ifexists FILE Themes:Sounds/SoundStart
  1195.        TSTARTSOUND = Themes:Sounds/SoundStart
  1196.        gosub PlayGUI DoSkin
  1197.        else
  1198.        ezreq "Cannot find start sound!" "Ok" ok
  1199.        endif
  1200.  
  1201.        xROUTINE DoSkin
  1202.        ifexists FILE Themes:Skin/main.iff
  1203.        assign Skins: Themes:Skin/
  1204.        gosub PlayGUI Wechsel2
  1205.        else
  1206.        ezreq "Cannot find skin!" "Ok" ok
  1207.        endif
  1208.  
  1209. xMENU 'THEMES' 'Save Theme' '' ''
  1210.         gosub PathConfig SavePaths
  1211.  
  1212. xMENU 'PLUGINS' 'Plone' '' ''
  1213.         IfExists DIRECTORY $PLONEPATH
  1214.         assign GUIPlone: $PLONEPATH
  1215.         GuiLoad GUIPlone:Plone
  1216.         else
  1217.         ezreq "No plugin! Maybe wrong path?" "Maybe.." maybe
  1218.         endif
  1219.  
  1220. xMENU 'PLUGINS' 'Skinner' '' ''
  1221.         IfExists DIRECTORY $SKINNERPATH
  1222.         assign GUISkinner: $SKINNERPATH
  1223.         GuiLoad GUISkinner:Skinner
  1224.         else
  1225.         ezreq "No plugin! Maybe wrong path?" "Maybe.." maybe
  1226.         endif
  1227.  
  1228. xMENU 'PREFS' 'Config' '' ''
  1229.        guiopen Voreinstellung
  1230.  
  1231.  
  1232. xMENU 'PREFS' 'Save Config' '' ''
  1233.        gosub PathConfig SavePaths
  1234.  
  1235. xMENU 'PREFS' 'Reset GUI to defaults' '' ''
  1236.  
  1237. SKINSELECT = PLAYGUI:SKINS/Standard/
  1238. GuiPattern = PlayGUI:SYS/Patterns/PGpattern
  1239. freeimage GuiPattern
  1240. loadimage $GuiPattern GuiPattern Workbench
  1241. gosub PlayGUI Wechsel
  1242.  
  1243. ; BUTTON - DEFINITIONEN
  1244.  
  1245.  
  1246. xROUTINE PausCont
  1247.  
  1248.         if $a = loaded
  1249.         and $stop = na
  1250.         SendRexx HIPPOPLAYER CONT
  1251.         endif
  1252.  
  1253.  
  1254. xRoutine Ruhe
  1255.  
  1256.         if $a = loaded
  1257.         and $c = hippy
  1258.         and $stumm = laut
  1259.         SendRexx HIPPOPLAYER VOLUME=0
  1260.  
  1261.                 update PlayGUI 3 "MUTE"
  1262.  
  1263.         stumm = leise
  1264.         gosub PlayGUI Hopp
  1265.  
  1266.         elseif $a = loaded
  1267.         and $c = hippy
  1268.         and $stumm = leise
  1269.         SendRexx HIPPOPLAYER VOLUME=$vol
  1270.  
  1271.         gosub PlayGUI Volmeter
  1272.  
  1273.         stumm = laut
  1274.         gosub playGUI Hopp
  1275.  
  1276.  
  1277.         else
  1278.                 gosub PlayGUI Hopp
  1279.         endif
  1280.  
  1281.  
  1282. xROUTINE PersVol
  1283.  
  1284.         if $a = loaded
  1285.         and $c = hippy
  1286.         and $pvol = NO
  1287.         SendRexx HIPPOPLAYER VOLUME=$vol2
  1288.  
  1289.                 update PlayGUI 3 "Personal vol"
  1290.  
  1291.         pvol = YES
  1292.         gosub PlayGUI Hopp
  1293.  
  1294.         elseif $a = loaded
  1295.         and $c = hippy
  1296.         and $pvol = YES
  1297.         SendRexx HIPPOPLAYER VOLUME=$vol
  1298.  
  1299.         gosub PlayGUI Volmeter
  1300.  
  1301.         pvol = NO
  1302.         gosub playGUI Hopp
  1303.  
  1304.  
  1305.         else
  1306.                 gosub PlayGUI Hopp
  1307.         endif
  1308.  
  1309.  
  1310.  
  1311.  
  1312.  
  1313.  
  1314.  
  1315. xAPPWindow module
  1316.  
  1317.         extract module FILE mody
  1318.         extract module EXT extension
  1319.  
  1320.         if $extention = 'MP3'
  1321.         or $extention = '.mp3'
  1322.         or $extention = '.mp3"'
  1323.         or $extention = '.mp2'
  1324.         or $extention = '.mp2"'
  1325.         or $extention = '.MP3'
  1326.         or $extention = '.MP3"'
  1327.         or $extention = '.mP3'
  1328.         or $extention = '.mP3"'
  1329.         or $extention = '.Mp3'
  1330.         or $extention = '.Mp3"'
  1331.         or $extention = '.MP2'
  1332.         or $extention = '.MP2"'
  1333.         or $extention = '.mP2'
  1334.         or $extention = '.mP2"'
  1335.         or $extention = '.Mp2'
  1336.         or $extention = '.Mp2"'
  1337.         or $extention = '.MPG'
  1338.         or $extention = '.MPG"'
  1339.         or $extention = '.mpg'
  1340.         or $extention = '.mpg"'
  1341.         m = loaded
  1342.         gosub PlayGUI MP3Play
  1343.         else
  1344.         gosub PlayGUI RestabfrageDue
  1345.         endif
  1346.  
  1347.         xROUTINE RestabfrageDue
  1348.  
  1349.  
  1350.         if $short = yep
  1351.         a = loaded
  1352.         gosub PlayGUI InfoPlay
  1353.  
  1354.         elseif $short = nope
  1355.         a = loaded
  1356.         gosub PlayGUI NormalPlay
  1357.  
  1358. XAREA 3 3 15 15 BOX
  1359.        Gadhelp "Quickmenu"
  1360.        guiopen QuickMenu
  1361.  
  1362.  
  1363. XAREA 250 95 20 18 BOX
  1364.        Gadhelp "Miniplay"
  1365.        gosub PlayGUI mini
  1366.  
  1367. XAREA 15 85 20 18 NOBOX
  1368.         Gadhelp "Info about the Module"
  1369.         gosub PlayGUI ModSamInfo
  1370.  
  1371. xROUTINE ModSamInfo
  1372.         
  1373.         if $a = loaded
  1374.         and $c = hippy
  1375.                 SendRexx HIPPOPLAYER SAMPLES
  1376.         else 
  1377.                 gosub PlayGUI Hopp
  1378.         endif 
  1379.  
  1380. XAREA 99 85 20 18 NOBOX
  1381.         Gadhelp "FORWARD"
  1382.         gosub PlayGUI ForwMod
  1383.  
  1384. xROUTINE ForwMod
  1385.         if $a = loaded
  1386.         and $c = hippy
  1387.                 SendRexx HIPPOPLAYER FFWD
  1388.         else 
  1389.                 gosub PlayGUI Hopp
  1390.         endif 
  1391.  
  1392. XAREA 78 85 20 18 NOBOX
  1393.         Gadhelp "REWIND"
  1394.         gosub PlayGUI RewMod
  1395.  
  1396. xROUTINE RewMod
  1397.         if $a = loaded
  1398.         and $c = hippy
  1399.                 SendRexx HIPPOPLAYER REW
  1400.         else 
  1401.                 gosub PlayGUI Hopp
  1402.         endif 
  1403.  
  1404.  
  1405.  
  1406.  
  1407. XAREA 36 85 20 18 NOBOX
  1408.         Gadhelp "Play selected module, mpg or midi"
  1409.         IfExists FILE $module
  1410.         gosub PlayGUI ModorMpg
  1411.         else
  1412.         gosub PlayGUI ladenwollen
  1413.         endif
  1414.  
  1415.         xROUTINE ladenwollen
  1416.         ezreq "No mod in memory!" "choose a mod|ok" ok
  1417.         if $ok = "1"
  1418.         gosub PlayGUI SelMod
  1419.         elseif $ok = "0"
  1420.         endif
  1421.  
  1422.         xROUTINE ModorMpg
  1423.  
  1424.         if $m = loaded
  1425.         and $extention = '.MP3'
  1426.         or $extention = '.mp3'
  1427.         or $extention = '.mp3"'
  1428.         or $extention = '.mp2'
  1429.         or $extention = '.mp2"'
  1430.         or $extention = '.MP3'
  1431.         or $extention = '.MP3"'
  1432.         or $extention = '.mP3'
  1433.         or $extention = '.mP3"'
  1434.         or $extention = '.Mp3'
  1435.         or $extention = '.Mp3"'
  1436.         or $extention = '.MP2'
  1437.         or $extention = '.MP2"'
  1438.         or $extention = '.mP2'
  1439.         or $extention = '.mP2"'
  1440.         or $extention = '.Mp2'
  1441.         or $extention = '.Mp2"'
  1442.         or $extention = '.MPG'
  1443.         or $extention = '.MPG"'
  1444.         or $extention = '.mpg'
  1445.         or $extention = '.mpg"'
  1446.         gosub PlayGUI MP3Play
  1447.         else
  1448.         gosub PlayGUI Restabfrage
  1449.         endif
  1450.  
  1451.         xROUTINE Restabfrage
  1452.  
  1453.         if $gm = loaded
  1454.         and $extention = '.mid'
  1455.         or $extention = '.MID'
  1456.         or $extention = '.Mid'
  1457.         or $extention = '.midi'
  1458.         or $extention = '.MIDI'
  1459.         Gosub PlayGUI MidiPlay
  1460.  
  1461.         elseif $a = loaded
  1462.         and $short = yep
  1463.         gosub PlayGUI InfoPlay
  1464.  
  1465.         elseif $a = loaded
  1466.         and $short = nope
  1467.         gosub PlayGUI NormalPlay
  1468.  
  1469.         elseif $c = hippyend
  1470.         gosub PlayGUI choice
  1471.         endif
  1472.  
  1473. XROUTINE InfoPlay
  1474.  
  1475.         if $m = loaded
  1476.         and $stopmpg = na
  1477.         Update PlayGUI 300 '}'
  1478.         BreakTask $MPEGAPATH C
  1479.         stopmpg = ja
  1480.         endif
  1481.  
  1482.         if $gm = loaded
  1483.         and $stopmidi = na
  1484.         Update PlayGUI 300 '}'
  1485.         BreakTask $GMPLAYPATH C
  1486.         stopmidi = ja
  1487.         endif
  1488.  
  1489.         if $b = loaded
  1490.         and $d = play16
  1491.         BreakTask $PLAY16PATH C
  1492.         d = play16end
  1493.         endif
  1494.  
  1495.         if $a = loaded
  1496.         and $c = hippy
  1497.         and $stop = na
  1498.         CLI 'C:run >NIL: $HIPPOPATH quit'
  1499.         gosub PlayGUI modspielenDue
  1500.         else
  1501.         gosub PlayGUI modspielenDue
  1502.         endif
  1503.  
  1504.         
  1505.  
  1506.         xRoutine modspielenDue
  1507.  
  1508.  
  1509.         ifexists FILE $HIPPOPATH
  1510.         Update PlayGUI 300 '{'
  1511.  
  1512.         
  1513.         CLI 'C:run >NIL: $HIPPOPATH hide $module'
  1514.         c = hippy
  1515.         stop = na
  1516.         if $playtimer = yes
  1517.         zeit = 0
  1518.         setgad PlayGUI 200 ON
  1519.         elseif $playtimer = no
  1520.         setgad PlayGUI 200 OFF
  1521.         endif
  1522.         Update PlayGUI 300 '{'
  1523.         
  1524.         WAIT PORT "HIPPOPLAYER" 5000
  1525.         SendRexx HIPPOPLAYER VOLUME=$vol
  1526.  
  1527.         extract module FILE *mody
  1528.                 
  1529.         WAIT PORT "HIPPOPLAYER" 5000
  1530.         SendRexx HIPPOPLAYER "GET SIZE"
  1531.         *size = $$REXXRET
  1532.  
  1533.         WAIT PORT "HIPPOPLAYER" 5000
  1534.         SendRexx HIPPOPLAYER "GET DURA"
  1535.         *time = $$REXXRET
  1536.  
  1537.         WAIT PORT "HIPPOPLAYER" 5000
  1538.         SendRexx HIPPOPLAYER "GET TYPE"
  1539.  
  1540.  
  1541.         WAIT PORT "HIPPOPLAYER" 5000
  1542.         SendRexx HIPPOPLAYER "GET CSPO"
  1543.         *curr = $$REXXRET
  1544.  
  1545.         WAIT PORT "HIPPOPLAYER" 5000
  1546.         SendRexx HIPPOPLAYER 'GET MSPO'
  1547.          *max = $$REXXRET
  1548.         
  1549.  
  1550.         WAIT PORT "HIPPOPLAYER" 5000
  1551.         SendRexx HIPPOPLAYER "GET TYPE"
  1552.         *typ = $$REXXRET
  1553.         update PlayGUI 3 "$*typ"
  1554.  
  1555.         
  1556.  
  1557. update Shortinfo 10 "NAME: $*mody"
  1558. update Shortinfo 11 "MODTYPE: $*typ"
  1559. update Shortinfo 12 "SIZE: $*size bytes"
  1560. if $*time = 0
  1561. update ShortInfo 13 "TIME: Not available"
  1562. elseif $*time > 0
  1563. update Shortinfo 13 "TIME: $*time seconds"
  1564. endif
  1565. if $*max = 0
  1566. update ShortInfo 14 "MAXIMAL POSITION: Not available"
  1567. elseif $*max > 0
  1568. update Shortinfo 14 "MAXIMAL POSITION: $*max"
  1569. endif
  1570. update ShortInfo 15 "CURRENT POSITION: $*curr"
  1571.                 update PlayGUI 1 '$*mody'
  1572.  
  1573.                
  1574.         else
  1575.         ezreq "Can't find hippoplayer! Please configure the paths!" "Will do!" do
  1576.         endif
  1577.  
  1578. XROUTINE NormalPlay
  1579.  
  1580.         if $m = loaded
  1581.         and $stopmpg = na
  1582.         Update PlayGUI 300 '}'
  1583.         BreakTask $MPEGAPATH C
  1584.         stopmpg = ja
  1585.         endif
  1586.  
  1587.         if $b = loaded
  1588.         and $d = play16
  1589.         BreakTask $PLAY16PATH C
  1590.         d = play16end
  1591.         endif
  1592.  
  1593.         if $gm = loaded
  1594.         and $stopmidi = na
  1595.         Update PlayGUI 300 '}'
  1596.         BreakTask $GMPLAYPATH C
  1597.         stopmidi = ja
  1598.         endif
  1599.  
  1600.         if $a = loaded
  1601.         and $c = hippy
  1602.         and $stop = na
  1603.         CLI 'C:run >NIL: $HIPPOPATH quit'
  1604.         gosub PlayGUI modspielen
  1605.         else
  1606.         gosub PlayGUI modspielen
  1607.         endif
  1608.         
  1609.  
  1610.         xRoutine modspielen
  1611.  
  1612.         ifexists FILE $HIPPOPATH
  1613.         
  1614.         CLI 'C:run >NIL: $HIPPOPATH hide $module'
  1615.         c = hippy
  1616.         stop = na
  1617.         if $playtimer = yes
  1618.         zeit = 0
  1619.         setgad PlayGUI 200 ON
  1620.         elseif $playtimer = no
  1621.         setgad PlayGUI 200 OFF
  1622.         endif
  1623.         Update PlayGUI 300 '{'
  1624.         
  1625.         WAIT PORT "HIPPOPLAYER" 5000
  1626.         SendRexx HIPPOPLAYER VOLUME=$vol
  1627.         extract module FILE *mody
  1628.  
  1629.         WAIT PORT "HIPPOPLAYER" 5000
  1630.         SendRexx HIPPOPLAYER "GET SIZE"
  1631.         *size = $$REXXRET
  1632.  
  1633.         WAIT PORT "HIPPOPLAYER" 5000
  1634.         SendRexx HIPPOPLAYER "GET DURA"
  1635.         *time = $$REXXRET
  1636.  
  1637.         WAIT PORT "HIPPOPLAYER" 5000
  1638.         SendRexx HIPPOPLAYER "GET TYPE"
  1639.  
  1640.  
  1641.         WAIT PORT "HIPPOPLAYER" 5000
  1642.         SendRexx HIPPOPLAYER "GET CSPO"
  1643.         *curr = $$REXXRET
  1644.  
  1645.         WAIT PORT "HIPPOPLAYER" 5000
  1646.         SendRexx HIPPOPLAYER "GET MSPO"
  1647.         *max = $$REXXRET
  1648.  
  1649.         WAIT PORT "HIPPOPLAYER" 5000
  1650.         SendRexx HIPPOPLAYER "GET TYPE"
  1651.         *typ = $$REXXRET
  1652.         update PlayGUI 3 "$*typ"
  1653.  
  1654.                 update PlayGUI 1 '$*mody'
  1655.  
  1656.  
  1657.  
  1658.         else
  1659.         ezreq "Can't find hippoplayer! Please configure the paths!" "Will do!" do
  1660.         endif
  1661.  
  1662.  
  1663. xROUTINE MP3Play
  1664.  
  1665.         if $c = hippy
  1666.         and $stop = na
  1667.         Update PlayGUI 300 '}'
  1668.         CLI 'C:run >NIL: $HIPPOPATH quit'
  1669.         stop = ja
  1670.         c = hippyend
  1671.         endif
  1672.  
  1673.         if $gm = loaded
  1674.         and $stopmidi = na
  1675.         Update PlayGUI 300 '}'
  1676.         BreakTask $GMPLAYPATH C
  1677.         stopmidi = ja
  1678.         endif
  1679.  
  1680.         if $b = loaded
  1681.         and $d = play16
  1682.         BreakTask $PLAY16PATH C
  1683.         d = play16end
  1684.         endif
  1685.  
  1686.         if $m = loaded
  1687.         and $stopmpg = na
  1688.         BreakTask $MPEGAPATH C
  1689.         gosub PlayGUI mpgspielen
  1690.         stopmpg = ja
  1691.         else
  1692.         gosub PlayGUI mpgspielen
  1693.         endif
  1694.  
  1695.         xROUTINE mpgspielen
  1696.         ifexists FILE $MPEGAPATH
  1697.  
  1698.         Update PlayGUI 300 '{'
  1699.         CLI 'run >NIL: $MPEGAPATH -p $priority -d $freq -q $quality -I$number -f $audiofilter -t $audiobuffer -v $vol -T -b $buffersize $module'
  1700.  
  1701.         if $playtimer = yes
  1702.         zeit = 0
  1703.         setgad PlayGUI 200 ON
  1704.         elseif $playtimer = no
  1705.         setgad PlayGUI 200 OFF
  1706.         endif
  1707.  
  1708.         extract module FILE *mody
  1709.         update PlayGUI 1 '$*mody'
  1710.  
  1711.                 stopmpg = na
  1712.         else
  1713.         ezreq "Can't find MPEGA! Please configure the paths!" "Will do!" do
  1714.         endif
  1715.  
  1716. xROUTINE MidiPlay
  1717.  
  1718.         if $c = hippy
  1719.         and $stop = na
  1720.         Update PlayGUI 300 '}'
  1721.         CLI 'C:run >NIL: $HIPPOPATH quit'
  1722.         stop = ja
  1723.         c = hippyend
  1724.         endif
  1725.  
  1726.         if $b = loaded
  1727.         and $d = play16
  1728.         BreakTask $PLAY16PATH C
  1729.         d = play16end
  1730.         endif
  1731.  
  1732.         if $gm = loaded
  1733.         and $stopmidi = na
  1734.         Update PlayGUI 300 '}'
  1735.         BreakTask $GMPLAYPATH C
  1736.         stopmidi = ja
  1737.         endif
  1738.  
  1739.         if $m = loaded
  1740.         and $stopmpg = na
  1741.         BreakTask $MPEGAPATH C
  1742.         stopmpg = ja
  1743.         gosub PlayGUI midispielen
  1744.         else
  1745.         gosub PlayGUI midispielen
  1746.         endif
  1747.  
  1748.         
  1749.  
  1750.         xROUTINE midispielen
  1751.         ifexists FILE $GMPLAYPATH
  1752.  
  1753.         Update PlayGUI 300 '{'
  1754.         CLI 'run >NIL: $GMPLAYPATH VOL=$gmvol FREQ=$gmfreq POLY=$gmpoly FL=$gmfilter PRI=$gmpriority BUF=$gmbuffer $module'
  1755.  
  1756.         if $playtimer = yes
  1757.         zeit = 0
  1758.         setgad PlayGUI 200 ON
  1759.         elseif $playtimer = no
  1760.         setgad PlayGUI 200 OFF
  1761.         endif
  1762.  
  1763.         extract module FILE *mody
  1764.         update PlayGUI 1 '$*mody'
  1765.  
  1766.                 stopmidi = na
  1767.         else
  1768.         ezreq "Can't find GMPlay! Please configure the paths!" "Will do!" do
  1769.         endif
  1770.  
  1771.  
  1772. ;PLAYSAMPLE
  1773.  
  1774. XAREA 153 21 20 18 NOBOX
  1775.         Gadhelp "Play selected sample"
  1776.  
  1777.         gosub PlayGUI PLAY16SAMPLE
  1778.  
  1779.         xROUTINE PLAY16SAMPLE
  1780.         if $m = loaded
  1781.         and $stopmpg = na
  1782.         BreakTask $MPEGAPATH C
  1783.         Update PlayGUI 300 '}'
  1784.         stopmpg = ja
  1785.         endif
  1786.  
  1787.         if $gm = loaded
  1788.         and $stopmidi = na
  1789.         Update PlayGUI 300 '}'
  1790.         BreakTask $GMPLAYPATH C
  1791.         stopmidi = ja
  1792.         endif
  1793.  
  1794.         if $a = loaded
  1795.         and $c = hippy
  1796.         and $stop = na
  1797.         CLI 'C:run >NIL: $HIPPOPATH quit'
  1798.         stop = ja
  1799.         c = hippyend
  1800.         endif
  1801.  
  1802.         if $b = loaded
  1803.         BreakTask $PLAY16PATH C
  1804.         d = play16end
  1805.         endif
  1806.  
  1807.         ifexists FILE $PLAY16PATH
  1808.         Update PlayGUI 300 '{'
  1809.         CLI 'C:run >NIL: $PLAY16PATH $sample volume=$vol L=$P16LOOP FILTER=$P16FILTER OUTPUT=$OUTPUT BUFFER=$SAMPLEBUFFER'
  1810.  
  1811.         if $playtimer = yes
  1812.         zeit = 0
  1813.         setgad PlayGUI 200 ON
  1814.         elseif $playtimer = no
  1815.         setgad PlayGUI 200 OFF
  1816.         endif
  1817.  
  1818.         gosub PlayGui Samplename
  1819.         d = play16
  1820.         else
  1821.         ezreq "Can't find Play16! Please configure the paths!" "Will do!" do
  1822.         endif
  1823.  
  1824.  
  1825. XROUTINE Samplename
  1826.  
  1827.  
  1828.                 update PlayGUI 2 "$sname"
  1829.  
  1830.                 if $P16LOOP = 0
  1831.                 update PlayGUI 1 "LOOP: ON"
  1832.                 elseif $P16LOOP = 1
  1833.                 update PlayGUI 1 "LOOP: OFF"
  1834.                 elseif $P16LOOP > 1
  1835.                 update PlayGUI 1 "LOOP: $P16LOOP"
  1836.                 endif
  1837.  
  1838.                  if $P16FILTER = ON
  1839.                 update PlayGUI 3 "FILTER: ON"
  1840.                 elseif $P16FILTER = OFF
  1841.                 update PlayGUI 3 "FILTER: OFF"
  1842.                 endif
  1843.  
  1844.                
  1845.  
  1846.  
  1847. XAREA 57 85 20 18 NOBOX
  1848.         Gadhelp "Stop playing the module"
  1849.         gosub PlayGUI StopMod
  1850.  
  1851.  
  1852. xROUTINE StopMod
  1853.         
  1854.         gosub PlayGUI Stopabfrage
  1855.  
  1856.         xROUTINE Stopabfrage
  1857.  
  1858.         IF $a = loaded
  1859.         and $stop = na
  1860.         gosub PlayGUI Modstop
  1861.  
  1862.         elseif $m = loaded
  1863.         and $stopmpg = na
  1864.         gosub PlayGUI Mpgstop
  1865.  
  1866.         elseif $gm = loaded
  1867.         and $stopmidi = na
  1868.         gosub PlayGUI MidiStop
  1869.  
  1870.  
  1871.         xROUTINE Modstop
  1872.                 
  1873.                 Update PlayGUI 300 '}'
  1874.                 CLI 'C:run >NIL: $HIPPOPATH quit'
  1875.  
  1876.                 
  1877.                 stop = ja
  1878.                 c = hippyend
  1879.                 update PlayGUI 1 'Status: Stop'
  1880.                 update PlayGUI 2 'PlayGUI v.3.0'
  1881.                 update PlayGUI 3 ''
  1882.                 setgad PlayGUI 200 OFF
  1883.  
  1884.         xROUTINE Mpgstop
  1885.                 Update PlayGUI 300 '}'
  1886.                 BreakTask $MPEGAPATH C
  1887.                 stopmpg = ja
  1888.                 update PlayGUI 1 'Status: Stop'
  1889.                 update PlayGUI 2 'PlayGUI v.3.0'
  1890.                 update PlayGUI 3 ''
  1891.                 setgad PlayGUI 200 OFF
  1892.  
  1893.         xROUTINE MidiStop
  1894.                 Update PlayGUI 300 '}'
  1895.                 BreakTask $GMPLAYPATH C
  1896.                 stopmidi = ja
  1897.                 update PlayGUI 1 'Status: Stop'
  1898.                 update PlayGUI 2 'PlayGUI v.3.0'
  1899.                 update PlayGUI 3 ''
  1900.                 setgad PlayGUI 200 OFF
  1901.  
  1902.  
  1903. XAREA 173 21 20 18 NOBOX
  1904.         Gadhelp "Stop playing the sample"
  1905.         if $b = loaded
  1906.                 BreakTask $PLAY16PATH C
  1907.                 d = play16end
  1908.                 Update PlayGUI 300 '}'
  1909.                 update PlayGUI 1 'Stop sample'
  1910.                 update PlayGUI 2 ''
  1911.                 update PlayGUI 3 ''
  1912.                 setgad PlayGUI 200 OFF
  1913.         endif
  1914.  
  1915. XAREA 193 21 20 18 NOBOX
  1916.         Gadhelp "Select a sample"
  1917.         ReqFile 0 0 200 400 "Choose a sample..." LOAD sample $SAMPLEPATH
  1918.         b = loaded
  1919.         extract sample FILE sname
  1920.         update PlayGUI 1 '$sname'
  1921.         update PlayGUI 2 'Selected sample'
  1922.         update PlayGUI 3 'AUTOPLAY = $SAMAUTO'
  1923.         gosub PlayGUI Autoabfrage
  1924.  
  1925.         xROUTINE Autoabfrage
  1926.         if $b = loaded
  1927.         and $SAMAUTO = ON
  1928.         gosub PlayGUI PLAY16SAMPLE
  1929.         else
  1930.         endif
  1931.         
  1932.  
  1933. XAREA 129 85 20 18 NOBOX
  1934.         Gadhelp "Select a module, mpg or midi"
  1935.         gosub PlayGUI SelMod
  1936.  
  1937. xROUTINE SelMod
  1938.  
  1939.         if $but = nein
  1940.         Setgad PlayGUI 5/8 SHOW
  1941.         Setgad PlayGUI 1/3 SHOW
  1942.         redraw PlayGUI
  1943.         but = ja
  1944.         endif
  1945.  
  1946.         ReqFile 0 0 200 400 "Choose a module, mpg or midi..." LOAD module $MODPATH
  1947.         if $AUTOPLAY = YES
  1948.         gosub PlayGUI Sofort
  1949.         else
  1950.         gosub PlayGUI Nichtsofort
  1951.         endif
  1952.  
  1953.         xROUTINE Nichtsofort
  1954.  
  1955.         ifexists FILE $module
  1956.         gosub PlayGUI Extr
  1957.         endif
  1958.  
  1959.  
  1960.  
  1961.  
  1962.         xRoutine Extr
  1963.         extract module FILE mody
  1964.         extract module EXT extention
  1965.         gosub PlayGUI Erkennung
  1966.        
  1967.  
  1968.         xROUTINE Erkennung
  1969.         if $extention = '.mp3'
  1970.         or $extention = '.mp3"'
  1971.         or $extention = '.mp2'
  1972.         or $extention = '.mp2"'
  1973.         or $extention = '.MP3'
  1974.         or $extention = '.MP3"'
  1975.         or $extention = '.mP3'
  1976.         or $extention = '.mP3"'
  1977.         or $extention = '.Mp3'
  1978.         or $extention = '.Mp3"'
  1979.         or $extention = '.MP2'
  1980.         or $extention = '.MP2"'
  1981.         or $extention = '.mP2'
  1982.         or $extention = '.mP2"'
  1983.         or $extention = '.Mp2'
  1984.         or $extention = '.Mp2"'
  1985.         or $extention = '.MPG'
  1986.         or $extention = '.MPG"'
  1987.         or $extention = '.mpg'
  1988.         or $extention = '.mpg"'
  1989.         update PlayGUI 1 '$mody'
  1990.         update PlayGUI 2 'Selected MPG'
  1991.         update PlayGUI 3 ''
  1992.         m = loaded
  1993.         else
  1994.         gosub PlayGUI midifall
  1995.  
  1996.         xROUTINE midifall
  1997.         if $extention = '.mid'
  1998.         or $extention = '.MID'
  1999.         or $extention = '.Mid'
  2000.         or $extention = '.midi'
  2001.         or $extention = '.MIDI'
  2002.         update PlayGUI 1 '$mody'
  2003.         update PlayGUI 2 'Selected MIDI'
  2004.         update PlayGUI 3 ''
  2005.         gm = loaded
  2006.         else
  2007.         gosub PlayGUI modfall
  2008.         endif
  2009.  
  2010.         xROUTINE modfall
  2011.         update PlayGUI 1 '$mody'
  2012.         update PlayGUI 2 'Selected mod'
  2013.         update PlayGUI 3 ''
  2014.         a = loaded
  2015.  
  2016.  
  2017.         xROUTINE Sofort
  2018.         ifexists FILE $module
  2019.         extract module FILE mody
  2020.         extract module EXT extention
  2021.         gosub PlayGUI Erkennung2
  2022.         else
  2023.         ezreq "No mod or mpg selected!" "I know!" jep
  2024.         endif
  2025.  
  2026.         xROUTINE Erkennung2
  2027.         if $extention = '.mp3'
  2028.         or $extention = '.mp3"'
  2029.         or $extention = '.mp2'
  2030.         or $extention = '.mp2"'
  2031.         or $extention = '.MP3'
  2032.         or $extention = '.MP3"'
  2033.         or $extention = '.mP3'
  2034.         or $extention = '.mP3"'
  2035.         or $extention = '.Mp3'
  2036.         or $extention = '.Mp3"'
  2037.         or $extention = '.MP2'
  2038.         or $extention = '.MP2"'
  2039.         or $extention = '.mP2'
  2040.         or $extention = '.mP2"'
  2041.         or $extention = '.Mp2'
  2042.         or $extention = '.Mp2"'
  2043.         or $extention = '.MPG'
  2044.         or $extention = '.MPG"'
  2045.         or $extention = '.mpg'
  2046.         or $extention = '.mpg"'
  2047.         update PlayGUI 1 '$mody'
  2048.         update PlayGUI 2 'Selected MPG'
  2049.         update PlayGUI 3 ''
  2050.         m = loaded
  2051.  
  2052.         gosub PlayGUI Zwischensochn
  2053.         else
  2054.         gosub PlayGUI midifall2
  2055.         endif
  2056.  
  2057.         xROUTINE Zwischensochn
  2058.  
  2059.         if $c = hippy
  2060.         and $stop = na
  2061.         Update PlayGUI 300 '}'
  2062.         CLI 'C:run >NIL: $HIPPOPATH quit'
  2063.         stop = ja
  2064.         c = hippyend
  2065.         endif
  2066.  
  2067.         if $b = loaded
  2068.         and $d = play16
  2069.         BreakTask $PLAY16PATH C
  2070.         d = play16end
  2071.         endif
  2072.  
  2073.         if $m = loaded
  2074.         and $stopmpg = na
  2075.         BreakTask $MPEGAPATH C
  2076.         gosub PlayGUI mpgspielen
  2077.         else
  2078.         gosub PlayGUI mpgspielen
  2079.         endif
  2080.         
  2081.  
  2082.         xROUTINE midifall2
  2083.  
  2084.         if $extention = '.mid'
  2085.         or $extention = '.MID'
  2086.         or $extention = '.Mid'
  2087.         or $extention = '.midi'
  2088.         or $extention = '.MIDI'
  2089.         update PlayGUI 1 '$mody'
  2090.         update PlayGUI 2 'Selected MIDI'
  2091.         update PlayGUI 3 ''
  2092.         gm = loaded
  2093.         gosub PlayGUI MidiPlay
  2094.         else
  2095.         gosub PlayGUI modfall2
  2096.         endif
  2097.  
  2098.         xROUTINE modfall2
  2099.         update PlayGUI 1 '$mody'
  2100.         update PlayGUI 2 'Selected mod'
  2101.         update PlayGUI 3 ''
  2102.         a = loaded
  2103.         gosub PlayGUI WasSpielen
  2104.         
  2105.         xROUTINE WasSpielen
  2106.         if $a = loaded
  2107.         and $short = yep
  2108.         gosub PlayGUI InfoPlay
  2109.  
  2110.         elseif $a = loaded
  2111.         and $short = nope
  2112.         gosub PlayGUI NormalPlay
  2113.  
  2114.         elseif $c = hippyend
  2115.         gosub PlayGUI choice
  2116.         endif
  2117.  
  2118. XAREA 160 85 50 18 NOBOX
  2119.         Gadhelp "Launch your favourite Music-tool!"
  2120.         ReqFile 0 0 200 400 "Choose a music-tool..." LOAD tool $LAUNCHPATH
  2121.         CLI 'C:RUN >NIL: $tool'
  2122.  
  2123.  
  2124. XAREA 213 20 50 20 NOBOX
  2125.         gadhelp "Write commentary about the current module or sample and save it"
  2126.  
  2127.  
  2128.         GuiLoad :PlayInfo
  2129.  
  2130.  
  2131. XAREA 210 85 35 18 NOBOX
  2132.         Gadhelp "Quit PlayGUI"
  2133.         
  2134.  
  2135.         gosub PlayGUI DASENDE
  2136.  
  2137.         xROUTINE DASENDE
  2138.         EZReq "Really quit PlayGUI?" "Quit|Cancel" quity
  2139.         if $quity = 1
  2140.         and $c = hippy
  2141.         gosub PlayGUI SQUIT
  2142.         elseif $stopmpg = na
  2143.         BreakTask $MPEGAPATH C
  2144.         gosub PlayGUI ENDE
  2145.         elseif $stopmidi = na
  2146.         BreakTask $GMPLAYPATH C
  2147.         gosub PlayGUI ENDE
  2148.         elseif $quity = 1
  2149.         and $d = play16
  2150.                 BreakTask $PLAY16PATH C
  2151.                 gosub PlayGUI ENDE
  2152.         elseif $quity = 1
  2153.                 gosub PlayGUI ENDE
  2154.         elseif $quity = 1
  2155.         and $c = Hipppyend
  2156.                 gosub PlayGUI ENDE
  2157.         elseif $quity = 1
  2158.         and $d = play16end
  2159.                 gosub PlayGUI ENDE
  2160.         
  2161.         else
  2162.                 Gosub PlayGUI Hopp
  2163.         endif
  2164.  
  2165.                 xROUTINE SQUIT
  2166.                 CLI 'C:run >NIL: $HIPPOPATH quit'
  2167.                 if $THEME = YES
  2168.                 CLI 'C:run >NIL: $PLAY16PATH $TQUITSOUND'
  2169.                 gosub PlayGUI ENDE5
  2170.                 elseif $THEME = NO
  2171.                 CLI 'C:run >NIL: $PLAY16PATH $QUITSOUND'
  2172.                 gosub PlayGUI ENDE5
  2173.                 endif
  2174.  
  2175.                 xROUTINE ENDE5
  2176.                 if $AUTOSAVE = YES
  2177.                 gosub PathConfig SavePaths
  2178.                 endif
  2179.  
  2180.                 freeimage haut
  2181.                 freeimage Barmod
  2182.                 freeimage BarSam
  2183.                 freeimage BarOpt
  2184.                 freeimage BarVol
  2185.                 freeimage GuiPattern
  2186.                 freeimage ab
  2187.                 freeimage frage
  2188.                 freeimage mpgfx
  2189.                 freeimage optgfx
  2190.                 freeimage mpegagfx
  2191.                 freeimage P16gfx
  2192.                 freeimage configgfx
  2193.                 freeimage quickgfx
  2194.                 freeimage modinfogfx
  2195.                 freeimage themesgfx
  2196.                 freeimage startupgfx
  2197.                 freeimage plugingfx
  2198.                 freeimage midigfx
  2199.                 assign Skins: remove
  2200.                 guiquit PlayGUI
  2201.                 guiquit ShortInfo
  2202.                 guiquit SYSInfo
  2203.                 guiquit MiniPlay
  2204.                 guiquit PGAbout
  2205.                 guiquit Voreinstellung
  2206.                 guiquit OptionConfig
  2207.                 guiquit StartupConfig
  2208.                 guiquit PathConfig
  2209.                 guiquit P16Config
  2210.                 guiquit SetVolume
  2211.                 guiquit Themes
  2212.                 guiquit QuickMenu
  2213.                 guiquit Preview
  2214.                 guiquit ThemeCreate
  2215.                 guiquit ShowPattern
  2216.                 guiquit ChangeLoop
  2217.                 guiquit PlugSet
  2218.                 guiquit ShowSkin
  2219.                 guiquit Createprogress
  2220.                 guiquit mpgconfig
  2221.                 guiquit Sambuff
  2222.                 guiquit aboutstart
  2223.                 guiquit GMPlayconfig
  2224.  
  2225. XROUTINE TimeInfo
  2226. SendRexx HIPPOPLAYER 'GET DURA'
  2227.          *time = $$REXXRET
  2228.          Update PlayGUI 3 'Total:$*time Sec'
  2229.  
  2230. XROUTINE SizeInfo
  2231. SendRexx HIPPOPLAYER 'GET SIZE'
  2232.          *size = $$REXXRET
  2233.          Update PlayGUI 3 'Size:$*size bytes'
  2234.  
  2235.  
  2236. XROUTINE CurrentInfo
  2237. SendRexx HIPPOPLAYER 'GET CSPO'
  2238.          *curr = $$REXXRET
  2239.          Update PlayGUI 3 'Current Position $*curr'
  2240.  
  2241.  
  2242. XROUTINE MaxInfo
  2243. SendRexx HIPPOPLAYER 'GET MSPO'
  2244.          *max = $$REXXRET
  2245.          Update PlayGUI 3 'Max Position:$*max'
  2246.  
  2247. XROUTINE AllInfo
  2248.          GuiOpen ShortInfo
  2249.  
  2250. ;Info Update
  2251.  
  2252.  
  2253. XAREA 18 25 126 38 BOX
  2254.         Gadhelp "Info about the Module"
  2255.         if $a = loaded
  2256.         and $c = hippy
  2257.                 SendRexx HIPPOPLAYER SAMPLES
  2258.         else 
  2259.                 gosub PlayGUI Hopp
  2260.         endif 
  2261.  
  2262. XTEXTBOX 128 23 16 14 '' ''
  2263.         
  2264.         attr tbstyle 3/3/plain/left
  2265.         attr tbox 2/1/1/none/out
  2266.  
  2267. gadid 300
  2268.  
  2269.  
  2270. ;Text 23 33 10 19 '' 21 NOBOX
  2271. XTEXTBOX 18 23 110 14 '' ''
  2272.         attr tbstyle 2/3/plain/left
  2273.         attr tbox 2/1/1/none/out
  2274.         gadid 2
  2275.  
  2276. ;Text 23 20 10 20 '' 25 NOBOX
  2277. XTEXTBOX 18 37 126 14 '' ''
  2278.         attr tbstyle 2/3/plain/left
  2279.         attr tbox 2/1/1/none/out
  2280.         gadid 1
  2281.  
  2282. ;text 23 46 10 20 '' 25 NOBOX
  2283. XTEXTBOX 18 51 126 14 '' ''
  2284.         attr tbstyle 2/3/plain/left
  2285.         attr tbox 2/1/1/none/out
  2286.         gadid 3
  2287.  
  2288. ;+++Short info about module+++
  2289.  
  2290. NewFile ShortInfo
  2291.  
  2292.  
  2293. WINBIG 27 318 240 200 "SHORT INFO"
  2294. wintype 01110000
  2295.  
  2296.  
  2297. image -1 10 modinfogfx
  2298.  
  2299. xBUTTON 10 50 60 20 "_Help"
  2300. ezreq "This window shows you infos about a MOD!" "ok" ok
  2301.  
  2302.  
  2303. XBUTTON 170 50 60 20 "_Close"
  2304. short = nope
  2305. guiclose ShortInfo
  2306.  
  2307. LINE 10 88 235 88 1
  2308. LINE 10 108 235 108 1
  2309. LINE 10 128 235 128 1
  2310. LINE 10 148 235 148 1
  2311. LINE 10 168 235 168 1
  2312.  
  2313. ;XBUTTON 10 50 130 20 "_Refresh current position"
  2314.  
  2315. VARPATH PlayGUI
  2316. xonload
  2317.  
  2318. if $a = loaded
  2319. and $c = hippy
  2320.  
  2321. update ShortInfo 10 "NAME: $*mody"
  2322. update ShortInfo 11 "MODTYPE: $*typ"
  2323. update ShortInfo 12 "SIZE: $*size bytes"
  2324. if $*time = 0
  2325. update ShortInfo 13 "TIME: Not available"
  2326. else
  2327. update ShortInfo 13 "TIME: $*time seconds"
  2328. endif
  2329. if $*max = 0
  2330. update ShortInfo 14 "MAXIMAL POSITION: Not available"
  2331. else
  2332. update ShortInfo 14 "MAXIMAL POSITION: $*max"
  2333. endif
  2334. else
  2335. ezreq "Play a mod first!" "Jep" jep
  2336. endif
  2337.  
  2338. TEXT 10 70 20 20 '' 50 NOBOX
  2339. gadid 10
  2340.  
  2341. TEXT 10 90 20 20 '' 50 NOBOX
  2342. gadid 11
  2343.  
  2344. TEXT 10 110 20 20 '' 40 NOBOX
  2345. gadid 12
  2346.  
  2347. TEXT 10 130 20 20 '' 40 NOBOX
  2348. gadid 13
  2349.  
  2350. TEXT 10 150 20 20 '' 40 NOBOX
  2351. gadid 14
  2352.  
  2353. TEXT 10 170 20 20 '' 40 NOBOX
  2354. gadid 15
  2355. ;----------------------------------------------------------------------------
  2356. NewFile MiniPlay
  2357.  
  2358. WINBIG 0 0 135 20 "MINI PLAY"
  2359. wintype 11110000
  2360. image 1 1 BarMod
  2361.  
  2362.  
  2363. xONCLOSE
  2364. GuiOpen PlayGUI
  2365.  
  2366. xMENU 'MiniPLAY' 'HELP' '' ''
  2367. ezreq "To maximize - click on the close gadget!" "OK!" ok
  2368.  
  2369. xMENU 'MiniPLAY' 'Close' '' '-'
  2370. GuiClose MiniPlay
  2371. GuiOpen PlayGUI
  2372.  
  2373. xMENU 'PLUGINS' 'Plone' '' ''
  2374.         IfExists DIRECTORY $PLONEPATH
  2375.         assign GUIPlone: $PLONEPATH
  2376.         GuiLoad GUIPlone:Plone
  2377.         else
  2378.         ezreq "No plugin! Maybe wrong path?" "Maybe.." maybe
  2379.         endif
  2380.  
  2381. xAREA 0 0 20 18 NOBOX
  2382. gosub PlayGUI ModSamInfo
  2383.  
  2384. xAREA 21 0 20 18 NOBOX
  2385.         gosub PlayGUI NormalPlay
  2386.        
  2387. xAREA 42 0 20 18 NOBOX
  2388.         gosub PlayGUI StopMod
  2389.  
  2390. xAREA 62 0 20 18 NOBOX
  2391.         gosub PlayGUI RewMod
  2392.  
  2393. xAREA 83 0 20 18 NOBOX
  2394.         gosub PlayGUI ForwMod
  2395.  
  2396. xAREA 110 0 20 18 NOBOX
  2397.         gosub PlayGUI SelMod
  2398.  
  2399. ;------------------------------------------------------------------------------------
  2400.  
  2401. NEWFile QuickMenu
  2402. WINBIG -1 -1 100 170 "QuickMenu"
  2403. wintype 11010000
  2404. WINONMOUSE 10 10
  2405.  
  2406. WINBACKGROUND IMAGE GuiPattern 0
  2407.  
  2408. image 0 0 quickgfx
  2409.  
  2410. VARPATH PlayGUI
  2411.  
  2412. xONCLOSE
  2413. guiclose QuickMenu
  2414.  
  2415. xButton -1 25 80 20 "Plone"
  2416.  
  2417. guiclose QuickMenu
  2418.  
  2419. IfExists DIRECTORY $PLONEPATH
  2420.         assign GUIPlone: $PLONEPATH
  2421.         GuiLoad GUIPlone:Plone
  2422.         else
  2423.         ezreq "No plugin! Maybe wrong path?" "Maybe.." maybe
  2424.         endif
  2425.  
  2426.  
  2427. xButton -1 45 80 20 "New Skin"
  2428.  
  2429. guiclose QuickMenu
  2430.  
  2431. gosub PlayGUI NeuHaut
  2432.  
  2433. xButton -1 65 80 20 "New Theme"
  2434. guiclose QuickMenu
  2435. gosub PlayGUI ThemeAuswahl
  2436.  
  2437. xButton -1 85 80 20 "Config"
  2438. guiclose QuickMenu
  2439. guiopen Voreinstellung
  2440.  
  2441. xButton -1 105 80 20 "Pause/Cont"
  2442. gosub PlayGUI PausCont
  2443.  
  2444. xButton -1 125 80 20 "MUTE"
  2445. gosub PlayGUI Ruhe
  2446.  
  2447. xButton -1 145 80 20 "PVolume"
  2448. gosub PlayGUI PersVol
  2449.  
  2450.  
  2451. ;-------------------------------------------------------------------------------------
  2452.  
  2453. NewFile SYSInfo
  2454.  
  2455.  
  2456. WINBIG 0 0 420 340 "SYS INFO"
  2457. wintype 01110000
  2458.  
  2459. VARPATH PlayGUI
  2460.  
  2461. xBUTTON 10 20 100 20 "Show _paths"
  2462. Update SYSInfo 30 "Path of Hippoplayer = $HIPPOPATH"
  2463. Update SYSInfo 31 "Path of Play16 = $PLAY16PATH"
  2464. Update SYSInfo 32 "Path of your Mods = $MODPATH"
  2465. Update SYSInfo 33 "Path of your Samples = $SAMPLEPATH"
  2466. Update SYSInfo 34 "Launchpath = $LAUNCHPATH"
  2467. Update SYSInfo 35 "Path of Plone = $PLONEPATH"
  2468. Update SYSInfo 36 "Path of scopes = $SCOPEPATH"
  2469. Update SYSInfo 37 "Copypath of mods = $COPYPATH"
  2470. Update SYSInfo 38 "Copypath of samples = $COPYPATH2"
  2471. Update SYSInfo 40 "YAMpath = $YAMPATH"
  2472. Update SYSInfo 39 "Browserpath = $BROWSERPATH"
  2473.  
  2474. xBUTTON 120 20 100 20 "Show _config"
  2475. Update SYSInfo 30 "Launch Plone at startup = $PLONESTART"
  2476. Update SYSInfo 31 "Launch ModINFO at startup = $STARTMODINFO"
  2477. Update SYSInfo 32 "Autoplay modules = $AUTOPLAY"
  2478. Update SYSInfo 33 "Play16 loop mode = $P16LOOP"
  2479. Update SYSInfo 34 "Play16 filter mode = $P16FILTER"
  2480. Update SYSInfo 35 "Default skin = $SKINSELECT"
  2481. Update SYSInfo 36 "Personal volume = $vol2"
  2482. Update SYSInfo 37 "Use Themes = $THEME"
  2483. Update SYSInfo 38 "Pattern = $GuiPattern"
  2484. Update SYSInfo 39 "StartSound = $STARTSOUND"
  2485. Update SYSInfo 40 "QuitSound = $QUITSOUND"
  2486. xBUTTON 240 20 100 20 "_Exit"
  2487. guiclose SYSInfo
  2488.  
  2489. Text 10 50 400 20 '' 280 BOX
  2490. gadid 30
  2491. Text 10 75 400 20 '' 280 BOX
  2492. gadid 31
  2493. Text 10 100 400 20 '' 280 BOX
  2494. gadid 32
  2495. Text 10 125 400 20 '' 280 BOX
  2496. gadid 33
  2497. Text 10 150 400 20 '' 280 BOX
  2498. gadid 34
  2499. Text 10 175 400 20 '' 280 BOX
  2500. gadid 35
  2501. Text 10 200 400 20 '' 280 BOX
  2502. gadid 36
  2503. Text 10 225 400 20 '' 280 BOX
  2504. gadid 37
  2505. Text 10 250 400 20 '' 280 BOX
  2506. gadid 38
  2507. Text 10 275 400 20 '' 280 BOX
  2508. gadid 39
  2509. Text 10 300 400 20 '' 280 BOX
  2510. gadid 40
  2511.  
  2512. ;--------------------------------------------------------------------
  2513. Newfile ChangeLoop
  2514.  
  2515. WINBIG -1 -1 185 155 "Change loop"
  2516. wintype 11010000
  2517.  
  2518. VARPATH PlayGUI
  2519.  
  2520. xONCLOSE
  2521. guiclose ChangeLoop
  2522.  
  2523. BOX 10 20 165 105 IN BUTTON
  2524.  
  2525. BOX 35 50 113 30 IN BUTTON
  2526.  
  2527. CTEXT -1 3 "- LOOP SECTION -" xHelvetica.font 11 2 -1 00000
  2528. CTEXT 17 57 "1" xHelvetica.font 11 1 -1 00000
  2529. CTEXT 153 57 "100" xHelvetica.font 11 1 -1 00000
  2530.  
  2531. xHSLIDER -1 55 100 20 '' P16LOOP 1 100 1 ''
  2532.  
  2533. Update ChangeLoop 1 'Loops:$P16LOOP'
  2534.  
  2535. TEXT -1 90 60 20 '' 24 BOX
  2536. gadid 1
  2537.  
  2538. xBUTTON -1 129 50 20 "Okay"
  2539. guiclose ChangeLoop
  2540. ;--------------------------------------------------------------------
  2541. Newfile Sambuff
  2542.  
  2543. WINBIG -1 -1 220 155 "Change sample buffer"
  2544. wintype 11010000
  2545.  
  2546. VARPATH PlayGUI
  2547.  
  2548. xONCLOSE
  2549. guiclose Sambuff
  2550.  
  2551. BOX -1 20 200 105 IN BUTTON
  2552.  
  2553. BOX -1 50 113 30 IN BUTTON
  2554.  
  2555. CTEXT -1 3 "- BUFFER SECTION -" xHelvetica.font 11 2 -1 00000
  2556.  
  2557. CTEXT 15 57 "32768" xHelvetica.font 11 1 -1 00000
  2558. CTEXT 168 57 "65536" xHelvetica.font 11 1 -1 00000
  2559.  
  2560. xHSLIDER -1 55 100 20 '' SAMPLEBUFFER 32768 65536 32768 ''
  2561.  
  2562. Update Sambuff 1 'Buffer:$SAMPLEBUFFER'
  2563.  
  2564. TEXT -1 90 100 20 '' 24 BOX
  2565. gadid 1
  2566.  
  2567. xBUTTON -1 129 50 20 "Okay"
  2568. guiclose Sambuff
  2569.  
  2570. ;------------------------------------------------------------
  2571. Newfile PGAbout
  2572.  
  2573. WINBIG -1 -1 240 310 "About..."
  2574. wintype 00000000
  2575. VARPATH PlayGUI
  2576.  
  2577. image 0 0 ab
  2578.  
  2579. CTEXT -1 130 "PlayGUI - Copyright 1999-2000" xHelvetica.font 11 2 -1 00000
  2580. CTEXT -1 155 "by Richard Kapp using G4C" xHelvetica.font 11 2 -1 00000
  2581. CTEXT -1 255 "- SEND YOUR SKINS,THEMES TO -" xHelvetica.font 11 1 -1 00020
  2582. CTEXT -1 280 "------ playgui@gmx.net ------" xHelvetica.font 11 1 -1 00020
  2583.  
  2584. xBUTTON -1 180 200 20 "e-mail:Narr.cybersdorf@gmx.net"
  2585. CLI 'run >NIL: $YAMPATH mailto narr.cybersdorf@gmx.net subject PlayGUI QUIET'
  2586. xBUTTON -1 205 200 20 "www:http://playgui.cxa.de"
  2587. CLI 'run >NIL: $BROWSERPATH http://playgui.cxa.de'
  2588.  
  2589. xBUTTON -1 230 60 15 "OKAY"
  2590. guiclose PGAbout
  2591.  
  2592. ;------------------------------------------------------------
  2593. Newfile aboutstart
  2594.  
  2595. WINBIG -1 -1 240 310 "About..."
  2596. wintype 00000000
  2597. VARPATH PlayGUI
  2598.  
  2599.  
  2600. image 0 0 ab
  2601.  
  2602. CTEXT -1 130 "PlayGUI - Copyright 1999-2000" xHelvetica.font 11 2 -1 00000
  2603. CTEXT -1 155 "by Richard Kapp using G4C" xHelvetica.font 11 2 -1 00000
  2604. CTEXT -1 255 "- SEND YOUR SKINS,THEMES TO -" xHelvetica.font 11 1 -1 00020
  2605. CTEXT -1 280 "------ playgui@gmx.net ------" xHelvetica.font 11 1 -1 00020
  2606.  
  2607. xBUTTON -1 180 200 20 "e-mail:Narr.cybersdorf@gmx.net"
  2608. CLI 'run >NIL: $YAMPATH QUIET'
  2609. xBUTTON -1 205 200 20 "www:http://playgui.cxa.de"
  2610. CLI 'run >NIL: $BROWSERPATH http://playgui.cxa.de'
  2611.  
  2612. xBUTTON -1 230 60 15 "OKAY"
  2613. guiclose aboutstart
  2614.  
  2615. ;------------------------------------------------------------
  2616.  
  2617. Newfile Voreinstellung
  2618.  
  2619. WINBIG -1 -1 290 260 "PlayGUI Config"
  2620. wintype 11010000
  2621. WINBACKGROUND IMAGE GuiPattern 0
  2622.  
  2623. VARPATH PlayGUI
  2624.  
  2625. image 10 10 frage
  2626. image -1 30 configgfx
  2627.  
  2628. xONCLOSE
  2629. guiclose Voreinstellung
  2630.  
  2631. BOX 10 80 270 130 IN Button
  2632.  
  2633. xBUTTON 240 10 40 20 "HELP"
  2634. ifexists FILE SYS:Utilities/Multiview
  2635. CLI 'C:run >NIL: SYS:Utilities/Multiview PlayGUI:Docs/Help/CONFIG.help'
  2636. else
  2637. ezreq "You need Multiview in SYS:Utilities!" "Oh my god!" god
  2638. endif
  2639.  
  2640. xBUTTON 20 90 120 20 "Startup Config"
  2641. if $PLONESTART = NO
  2642. Update StartupConfig 1 0
  2643. elseif $PLONESTART = YES
  2644. Update StartupConfig 1 1
  2645. endif
  2646. if $STARTMODINFO = NO
  2647. Update StartupConfig 2 0
  2648. elseif $STARTMODINFO = YES
  2649. Update StartupConfig 2 1
  2650. endif
  2651. if $STARTABOUT = OFF
  2652. Update StartupConfig 3 0
  2653. elseif $STARTABOUT = ON
  2654. Update StartupConfig 3 1
  2655. endif
  2656. if $STARTMOD = OFF
  2657. Update StartupConfig 4 0
  2658. elseif $STARTMOD = ON
  2659. Update Startupconfig 4 1
  2660. endif
  2661. Update StartupConfig 5 '$STARTMODULE'
  2662. guiclose Voreinstellung
  2663. guiopen StartupConfig
  2664.  
  2665. xBUTTON 150 90 120 20 "Option Config"
  2666. Update OptionConfig 60 '$GuiPattern'
  2667. Update OptionConfig 61 '$SKINSELECT'
  2668. Update OptionConfig 62 '$STARTSOUND'
  2669. Update OptionConfig 63 '$QUITSOUND'
  2670. if $AUTOSAVE = NO
  2671. Update OptionConfig 59 0
  2672. elseif $AUTOSAVE = YES
  2673. Update OptionConfig 59 1
  2674. endif
  2675. guiclose Voreinstellung
  2676. guiopen OptionConfig
  2677.  
  2678. xBUTTON 20 120 120 20 "Path Config"
  2679. Update PathConfig 50 $HIPPOPATH
  2680. Update PathConfig 51 $PLAY16PATH
  2681. Update PathConfig 52 $MPEGAPATH
  2682. Update PathConfig 53 $MODPATH
  2683. Update PathConfig 54 $SAMPLEPATH
  2684. Update PathConfig 55 $LAUNCHPATH
  2685. Update PathConfig 56 $SCOPEPATH
  2686. Update PathConfig 57 $COPYPATH
  2687. Update PathConfig 58 $MPGCOPYPATH
  2688. Update PathConfig 59 $COPYPATH2
  2689. Update PathConfig 60 $YAMPATH
  2690. Update PathConfig 61 $BROWSERPATH
  2691. Update PathConfig 62 $GMPLAYPATH
  2692. Update PathConfig 63 $MIDICOPYPATH
  2693. guiclose Voreinstellung
  2694. guiopen PathConfig
  2695.  
  2696. xBUTTON 150 150 120 20 "Play16"
  2697.  
  2698. if $P16LOOP = 1
  2699. Update P16Config 1 0
  2700. elseif $P16LOOP = 0
  2701. Update P16Config 1 1
  2702. elseif $P16LOOP > 1
  2703. Update P16Config 1 0
  2704. endif
  2705. if $P16FILTER = OFF
  2706. Update P16Config 2 0
  2707. elseif $P16FILTER = ON
  2708. Update P16Config 2 1
  2709. endif
  2710. if $SAMAUTO = OFF
  2711. Update P16Config 3 0
  2712. elseif $SAMAUTO = ON
  2713. Update P16Config 3 1
  2714. endif
  2715. IF $OUTPUT = Paula8
  2716. Update P16Config 4 0
  2717. elseif $OUTPUT = Paula14
  2718. Update P16Config 4 1
  2719. elseif $OUTPUT = Paula14c
  2720. Update P16Config 4 2
  2721. elseif $OUTPUT = MPro
  2722. Update P16Config 4 3
  2723. elseif $OUTPUT = AHI
  2724. Update P16Config 4 4
  2725. endif
  2726. guiclose Voreinstellung
  2727. guiopen P16Config
  2728.  
  2729. xBUTTON 150 120 120 20 "Themes"
  2730. Update Themes 80 '$THEMEPATH'
  2731. guiclose Voreinstellung
  2732. guiopen Themes
  2733.  
  2734. xBUTTON 20 150 120 20 "PlugIns"
  2735. UPDATE PlugSet 1 $PLONEPATH
  2736. UPDATE PlugSet 2 $SKINNERPATH
  2737. guiclose Voreinstellung
  2738. guiopen PlugSet
  2739.  
  2740. xBUTTON 20 180 120 20 "MPEGA"
  2741. IF $quality = 0
  2742. Update mpgconfig 3 0
  2743. elseif $quality = 1
  2744. Update mpgconfig 3 1
  2745. elseif $quality = 2
  2746. Update mpgconfig 3 2
  2747. endif
  2748. IF $freq = 4
  2749. Update mpgconfig 4 0
  2750. elseif $freq = 2
  2751. Update mpgconfig 4 1
  2752. elseif $freq = 1
  2753. Update mpgconfig 4 2
  2754. endif
  2755. if $audiofilter = 0
  2756. Update mpgconfig 2 0
  2757. elseif $audiofilter = 1
  2758. Update mpgconfig 2 1
  2759. endif
  2760. Update mpgconfig 1 '$audiobuffer sec'
  2761. update mpgconfig 5 '$number'
  2762. Update mpgconfig 6 '$buffersize KB'
  2763.  
  2764. guiclose Voreinstellung
  2765. guiopen mpgconfig
  2766.  
  2767. xBUTTON 150 180 120 20 "GMPLAY"
  2768. IF $gmfreq = 28867
  2769. Update GMPlayconfig 3 0
  2770. elseif $gmfreq = 44000
  2771. Update GMPlayconfig 3 1
  2772. elseif $gmfreq = 80000
  2773. Update GMPlayconfig 3 2
  2774. endif
  2775. IF $gmpriority = -1
  2776. Update GMPlayconfig 5 0
  2777. elseif $gmpriority = 0
  2778. Update GMPlayconfig 5 1
  2779. elseif $gmpriority = 1
  2780. Update GMPlayconfig 5 2
  2781. endif
  2782. if $gmfilter = NOFILTER
  2783. Update GMPlayconfig 2 0
  2784. elseif $gmfilter = FILTER
  2785. Update GMPlayconfig 2 1
  2786. endif
  2787. Update GMPlayconfig 1 '$gmbuffer KB'
  2788. Update GMPlayconfig 4 '$gmvol Vol'
  2789. Update GMPlayconfig 6 '$gmpoly'
  2790. guiclose Voreinstellung
  2791. guiopen GMPlayConfig
  2792.  
  2793. xBUTTON 80 220 60 20 "_OK"
  2794. guiclose Voreinstellung
  2795.  
  2796. xBUTTON 150 220 60 20 "_SAVE"
  2797. gosub PathConfig SavePaths
  2798. guiclose Voreinstellung
  2799.  
  2800. ;-------------------------------------------------------------
  2801.  
  2802.  
  2803. Newfile StartupConfig
  2804.  
  2805. WINBIG -1 -1 200 260  "Startup Config"
  2806. wintype 11010000
  2807.  
  2808. WINBACKGROUND IMAGE GuiPattern 0
  2809.  
  2810. image -1 5 startupgfx
  2811.  
  2812. xONCLOSE
  2813. guiclose StartupConfig
  2814. guiopen Voreinstellung
  2815.  
  2816. BOX 10 50 180 160 IN BUTTON
  2817.  
  2818. VARPATH PlayGUI
  2819.  
  2820. CTEXT 30 65 "Start PLONE" XHelvetica.font 11 2 -1 00011
  2821. CTEXT 30 95 "Start MODINFO" XHelvetica.font 11 2 -1 00011
  2822. CTEXT 30 125 "Start ABOUT window" XHelvetica.font 11 2 -1 00011
  2823. CTEXT 30 155 "Start a MOD" XHelvetica.font 11 2 -1 00011
  2824.  
  2825. xCHECKBOX 140 60 20 20 "" PLONESTART "YES" "NO" OFF
  2826. gadid 1
  2827. xCHECKBOX 140 90 20 20 "" STARTMODINFO "YES" "NO" OFF
  2828. gadid 2
  2829. xCHECKBOX 140 120 20 20 "" STARTABOUT "ON" "OFF" OFF
  2830. gadid 3
  2831. xCHECKBOX 140 150 20 20 "" STARTMOD "ON" "OFF" OFF
  2832. gadid 4
  2833.  
  2834. xTEXTIN 30 180 100 20 '' STARTMODULE 'choose startmod!' 200
  2835. gadid 5
  2836.  
  2837. xBUTTON 140 180 20 20 "<"
  2838. ReqFile 0 0 200 400 "Choose start mod..." LOAD STARTMODULE $MODPATH
  2839. Update StartupConfig 5 $STARTMODULE
  2840.  
  2841.  
  2842. xBUTTON -1 230 50 20 "_OK"
  2843. guiclose StartupConfig
  2844. guiopen Voreinstellung
  2845.  
  2846. xBUTTON 10 230 50 20 "HELP"
  2847. ifexists FILE SYS:Utilities/Multiview
  2848. CLI 'C:run >NIL: SYS:Utilities/Multiview PlayGUI:Docs/Help/STARTUP.help'
  2849. else
  2850. ezreq "You need Multiview in SYS:Utilities!" "Oh my god!" god
  2851. endif
  2852. ;-----------------------------------------------------------
  2853.  
  2854. Newfile OptionConfig
  2855.  
  2856. WINBIG -1 -1 350 420 "Option Config"
  2857. wintype 11010000
  2858.  
  2859. WINBACKGROUND IMAGE GuiPattern 0
  2860.  
  2861. VARPATH PlayGUI
  2862.  
  2863. image 0 0 optgfx
  2864.  
  2865. xONCLOSE
  2866. guiclose OptionConfig
  2867. guiopen Voreinstellung
  2868.  
  2869. BOX 10 50 330 40 IN BUTTON
  2870.  
  2871. BOX 10 120 330 40 IN BUTTON
  2872.  
  2873. BOX 10 190 330 40 IN BUTTON
  2874.  
  2875. BOX 10 260 330 100 IN BUTTON
  2876.  
  2877.  
  2878.  
  2879. CTEXT 10 97 "Choose Default Pattern..." XHelvetica.font 11 2 -1 00011
  2880. CTEXT 10 167 "Choose Default Skin..." XHelvetica.font 11 2 -1 00011
  2881. CTEXT 10 237 "Choose Sounds..." XHelvetica.font 11 2 -1 00011
  2882. CTEXT 30 263 "Choose Startsound..." XHelvetica.font 11 2 -1 00011
  2883. CTEXT 30 302 "Choose Quitsound..." XHelvetica.font 11 2 -1 00011
  2884. CTEXT 27 63 "Save prefs on exit" XHelvetica.font 11 2 -1 00011
  2885.  
  2886. xAREA 255 15 90 10 BOX
  2887. CLI 'run >NIL: $BROWSERPATH http://playgui.cxa.de'
  2888.  
  2889. xCHECKBOX 140 60 20 20 "" AUTOSAVE "YES" "NO" OFF
  2890.        gadid 59
  2891.  
  2892. xTEXTIN 30 130 220 20 '' GuiPattern '' 200
  2893.        gadid 60
  2894.  
  2895. XTEXTIN 30 200 220 20 '' SKINSELECT '' 200
  2896.        gadid 61
  2897.  
  2898. xTEXTIN 30 280 220 20 '' STARTSOUND '' 200
  2899.        gadid 62
  2900.  
  2901. xTEXTIN 30 320 220 20 '' QUITSOUND '' 200
  2902.        gadid 63
  2903.  
  2904.  
  2905. xBUTTON 200 60 100 20 "Set Personal Vol."
  2906. guiopen SetVolume
  2907.  
  2908. xBUTTON 260 130 30 20 "Set"
  2909. ReqFile 0 0 200 400 "Choose pattern...." LOAD GuiPattern PLAYGUI:SYS/Patterns/
  2910. Update OptionConfig 60 '$GuiPattern'
  2911.  
  2912. xBUTTON 300 130 30 20 "Test"
  2913. ifexists FILE $GuiPattern
  2914. loadimage $GuiPattern TestPattern Workbench
  2915. guiopen ShowPattern
  2916. else
  2917. ezreq "Cannot find pattern! Maybe wrong path?" "Yep!" yep
  2918. endif
  2919.  
  2920. xBUTTON 260 200 30 20 "Set"
  2921. ReqFile 0 0 200 400 "Choose skin path..." DIR SKINSELECT #PLAYGUI:Skins/
  2922. Update OptionConfig 61 '$SKINSELECT'
  2923.  
  2924. xBUTTON 300 200 30 20 "Test"
  2925. ifexists DIR $SKINSELECT
  2926. assign Skins: $SKINSELECT
  2927. loadimage Skins:main.iff TestSkin Workbench
  2928. guiopen ShowSkin
  2929. else
  2930. ezreq "Cannot find skin!" "Ok" ok
  2931. endif
  2932.  
  2933. xBUTTON 260 280 30 20 "Set"
  2934. ReqFile 0 0 200 400 "Choose Startsound..." LOAD STARTSOUND PlayGUI:SYS/Sounds/
  2935. Update OptionConfig 62 '$STARTSOUND'
  2936.  
  2937. xBUTTON 300 280 30 20 "Test"
  2938. ifexists FILE $STARTSOUND
  2939. CLI 'C:run >NIL: $PLAY16PATH $STARTSOUND'
  2940. else
  2941. ezreq "Cannot find sound!" "I see!" see
  2942. endif
  2943.  
  2944. xBUTTON 260 320 30 20 "Set"
  2945. ReqFile 0 0 200 400 "Choose Quitsound..." LOAD QUITSOUND PLAYGUI:SYS/Sounds/
  2946. Update OptionConfig 63 '$QUITSOUND'
  2947.  
  2948. xBUTTON 300 320 30 20 "Test"
  2949. ifexists FILE $QUITSOUND
  2950. CLI 'C:run >NIL: $PLAY16PATH $QUITSOUND'
  2951. else
  2952. ezreq "Cannot find sound!" "I see!" see
  2953. endif
  2954.  
  2955. xBUTTON 10 380 80 20 "HELP"
  2956. ifexists FILE SYS:Utilities/Multiview
  2957. CLI 'C:run >NIL: SYS:Utilities/Multiview PlayGUI:Docs/Help/OPTION.help'
  2958. else
  2959. ezreq "You need Multiview in SYS:Utilities!" "Oh my god!" god
  2960. endif
  2961.  
  2962. xBUTTON 100 380 70 20 "_USE"
  2963. THEME = NO
  2964. gosub OptionConfig ConfigUpdate
  2965.  
  2966. xBUTTON 180 380 70 20 "_OK"
  2967. THEME = NO
  2968. guiclose OptionConfig
  2969. guiopen Voreinstellung
  2970.  
  2971. xROUTINE ConfigUpdate
  2972. freeimage GuiPattern
  2973. loadimage $GuiPattern GuiPattern Workbench
  2974. gosub PlayGUI Wechsel
  2975. guiclose OptionConfig
  2976. guiopen Voreinstellung
  2977.  
  2978. xBUTTON 260 380 80 20 "_Create Theme"
  2979. guiopen ThemeCreate
  2980.  
  2981. ;------------------------------------------
  2982. Newfile ShowPattern
  2983.  
  2984. WINBIG -1 -1 100 100 "SHOWING PATTERN..."
  2985. Wintype 11010000
  2986. WINBACKGROUND IMAGE TestPattern 0
  2987.  
  2988. xONCLOSE
  2989. guiclose ShowPattern
  2990.  
  2991. ;-------------------------------------------------------------------
  2992.  
  2993. Newfile ShowSkin
  2994.  
  2995. WINBIG -1 -1 275 116 "SHOWING SKIN..."
  2996. wintype 11010000
  2997.  
  2998. image 0 0 TestSkin
  2999.  
  3000. xONCLOSE
  3001. guiclose ShowSkin
  3002.  
  3003. ;-------------------------------------------------------------------
  3004.  
  3005. Newfile ThemeCreate
  3006.  
  3007. WINBIG -1 -1 280 110 "CREATE A THEME"
  3008. wintype 11010000
  3009.  
  3010. WINBACKGROUND IMAGE GuiPattern 0
  3011.  
  3012. VARPATH PlayGUI
  3013.  
  3014. xONCLOSE
  3015. guiclose SetVolume
  3016.  
  3017. CTEXT 10 10 "Enter name of Theme..." XHelvetica.font 11 2 -1 00011
  3018.  
  3019. xTEXTIN 10 40 260 20 '' Themename '' 100
  3020.  
  3021. xBUTTON 10 70 80 20 "Create"
  3022. guiopen Createprogress
  3023.  
  3024. CLI 'C:Makedir PlayGUI:Themes/$Themename'
  3025.  
  3026. CLI 'C:assign ThemeCreation: PlayGUI:Themes/$Themename'
  3027.  
  3028. CLI 'C:Makedir ThemeCreation:Skin'
  3029. CLI 'C:Makedir ThemeCreation:Pattern'
  3030. CLI 'C:Makedir ThemeCreation:Sounds'
  3031.  
  3032. Update Createprogress 1 20
  3033. Update Createprogress 2 "Created directories"
  3034.  
  3035. gosub ThemeCreate SavePatternNext
  3036.  
  3037. xROUTINE SavePatternNext
  3038. ifexists FILE $GuiPattern
  3039. gosub ThemeCreate SavePatternNow
  3040. else
  3041. ezreq "Pattern is missing! Cannot create theme!" "Bad!" bad
  3042. endif
  3043.  
  3044. xROUTINE SavePatternNow
  3045. CLI 'C:Copy $GuiPattern to ThemeCreation:Pattern/PGPattern'
  3046. Update Createprogress 1 40
  3047. Update Createprogress 2 "Saved pattern"
  3048. gosub ThemeCreate SaveThemeNextSkin
  3049.  
  3050.  
  3051.  
  3052. xROUTINE SaveThemeNextSkin
  3053. ifexists DIR $SKINSELECT
  3054. gosub ThemeCreate SaveThemeSkinNow
  3055. else
  3056. ezreq "Skin is missing! Cannot create theme!" "Too bad!" bady
  3057. endif
  3058.  
  3059. xROUTINE SaveThemeSkinNow
  3060. assign Skin: $SKINSELECT
  3061. CLI 'C:Copy Skin:main.iff to ThemeCreation:Skin/'
  3062. CLI 'C:Copy Skin:mod_bar to ThemeCreation:Skin/'
  3063. CLI 'C:Copy Skin:volume_bar to ThemeCreation:Skin/'
  3064. CLI 'C:Copy Skin:sample_bar to ThemeCreation:Skin/'
  3065. CLI 'C:Copy Skin:option_bar to ThemeCreation:Skin/'
  3066. Update Createprogress 1 60
  3067. Update Createprogress 2 "Saved skin elements"
  3068.  
  3069. gosub ThemeCreate SaveStartSoundNext
  3070.  
  3071. xROUTINE SaveStartSoundNext
  3072. ifexists FILE $STARTSOUND
  3073. gosub ThemeCreate SaveStartSoundNow
  3074. else
  3075. ezreq "Start sound is missing! Cannot create theme!" "Ok Ok!" ok
  3076. endif
  3077.  
  3078. xROUTINE SaveStartSoundNow
  3079. CLI 'C:Copy $STARTSOUND to ThemeCreation:Sounds/SoundStart'
  3080. Update Createprogress 1 80
  3081. Update Createprogress 2 "Saved start-sound"
  3082. gosub ThemeCreate SaveQuitSoundNext
  3083.  
  3084. xROUTINE SaveQuitSoundNext
  3085. ifexists FILE $QUITSOUND
  3086. gosub ThemeCreate SaveQuitSoundNow
  3087. else
  3088. ezreq "Quit sound is missing! Cannot create theme!" "Ok!" ok
  3089. endif
  3090.  
  3091. xROUTINE SaveQuitSoundNow
  3092. CLI 'C:Copy $QUITSOUND to ThemeCreation:Sounds/SoundEnd'
  3093. Update Createprogress 1 100
  3094. Update Createprogress 2 "Saved quit-sound, finishing..."
  3095. ezreq "Saved theme! Finished!" "Wow!" wow
  3096.  
  3097.  
  3098. guiquit Createprogress
  3099. xBUTTON 100 70 80 20 "HELP"
  3100. ezreq "Your settings will be used to create a theme in your THEMES dir!" "Ah!" ah
  3101.  
  3102. xBUTTON 190 70 80 20 "Ok"
  3103. guiclose ThemeCreate
  3104.  
  3105. ;------------------------------------------------------------------
  3106.  
  3107. Newfile Createprogress
  3108. Winbig -1 -1 200 70 "Create progress..."
  3109. Wintype 11010000
  3110.  
  3111. VARPATH PlayGUI
  3112.  
  3113. GAUGE -1 40 150 20 OUT BUTTON 3 0 0
  3114. gadid 1
  3115.  
  3116. TEXT -1 10 150 20 "" 35 BOX
  3117. gadid 2
  3118.  
  3119. ;-------------------------------------------------------------------
  3120. Newfile SetVolume
  3121.  
  3122. WINBIG -1 -1 50 150 "Set Volume"
  3123. wintype 10000000
  3124.  
  3125. WINBACKGROUND IMAGE GuiPattern 0
  3126.  
  3127. VARPATH PlayGUI
  3128.  
  3129. xONCLOSE
  3130. guiclose SetVolume
  3131.  
  3132.  
  3133. xVSLIDER 15 10 20 100 '' vol2 0 64 0 ''
  3134. Update SetVolume 70 '$vol2'
  3135.  
  3136. TEXT 10 120 30 20 '' 24 BOX
  3137. gadid 70
  3138.  
  3139. ;----------------------------------------------------------------
  3140. Newfile mpgconfig
  3141.  
  3142. WINBIG -1 -1 420 200 "MPEGA Config"
  3143. wintype 11010000
  3144.  
  3145. WINBACKGROUND IMAGE GuiPattern 0
  3146.  
  3147. VARPATH PlayGUI
  3148.  
  3149. image 349 151 mpgfx
  3150. image 0 0 mpegagfx
  3151. xONCLOSE
  3152. guiclose mpgconfig
  3153. guiopen Voreinstellung
  3154.  
  3155. xAREA 321 15 70 10 BOX
  3156. CLI 'run >NIL: $YAMPATH mailto playgui@gmx.net subject PlayGUI QUIET'
  3157.  
  3158. CTEXT 30 62 "Frequenzy" XHelvetica.font 11 2 -1 00011
  3159. CTEXT 30 87 "AHI ID" XHelvetica.font 11 2 -1 00011
  3160. CTEXT 30 112 "Audiobuffer" XHelvetica.font 11 2 -1 00011
  3161. CTEXT 240 62 "Quality" XHelvetica.font 11 2 -1 00011
  3162. CTEXT 240 87 "Filter" XHelvetica.font 11 2 -1 00011
  3163. CTEXT 240 112 "Buffer size" XHelvetica.font 11 2 -1 00011
  3164.  
  3165. BOX 10 50 190 90 IN BUTTON
  3166.  
  3167. BOX 220 50 190 90 IN BUTTON
  3168.  
  3169. xHSLIDER 100 110 50 20 '' audiobuffer 1 300 1 ''
  3170. Update mpgconfig 1 '$audiobuffer sec'
  3171.  
  3172. xHSLIDER 300 110 50 20 '' buffersize 16 1000 1 ''
  3173. Update mpgconfig 6 '$buffersize KB'
  3174.  
  3175. xTEXTIN 100 85 80 20 '' number '' 30
  3176. gadid 5
  3177.  
  3178.  
  3179. TEXT 160 110 40 20 '' 24 NOBOX
  3180. gadid 1
  3181.  
  3182. TEXT 360 110 40 20 '' 24 NOBOX
  3183. gadid 6
  3184.  
  3185. xCHECKBOX 300 85 20 20 "" audiofilter "1" "0" OFF
  3186. gadid 2
  3187.  
  3188. xCYCLER 300 60 80 20 "" quality
  3189. CSTR "bad" 0
  3190. CSTR "good" 1
  3191. CSTR "best" 2
  3192. gadid 3
  3193.  
  3194. xCYCLER 100 60 80 20 "" freq
  3195. CSTR "bad" 4
  3196. CSTR "good" 2
  3197. CSTR "best" 1
  3198. gadid 4
  3199.  
  3200. xBUTTON 10 165 50 20 "HELP"
  3201. ifexists FILE SYS:Utilities/Multiview
  3202. CLI 'C:run >NIL: SYS:Utilities/Multiview PlayGUI:Docs/Help/MPG.help'
  3203. else
  3204. ezreq "You need Multiview in SYS:Utilities!" "Oh my god!" god
  3205. endif
  3206.  
  3207. xBUTTON -1 165 50 20 "_OK"
  3208. guiclose mpgconfig
  3209. guiopen Voreinstellung
  3210. ;---------------------------------------------------------------------
  3211. Newfile GMPlayconfig
  3212.  
  3213. WINBIG -1 -1 460 200 "GMPlay Config"
  3214. wintype 11010000
  3215.  
  3216. WINBACKGROUND IMAGE GuiPattern 0
  3217.  
  3218. VARPATH PlayGUI
  3219.  
  3220. image 0 0 midigfx
  3221.  
  3222. xONCLOSE
  3223. guiclose GMPlayconfig
  3224. guiopen Voreinstellung
  3225.  
  3226.  
  3227. CTEXT 30 62 "Frequenzy" XHelvetica.font 11 2 -1 00011
  3228. CTEXT 30 87 "Priority" XHelvetica.font 11 2 -1 00011
  3229. CTEXT 30 112 "Buffers" XHelvetica.font 11 2 -1 00011
  3230. CTEXT 270 62 "Volume" XHelvetica.font 11 2 -1 00011
  3231. CTEXT 270 87 "Filter" XHelvetica.font 11 2 -1 00011
  3232. CTEXT 270 112 "Polyphony" XHelvetica.font 11 2 -1 00011
  3233.  
  3234. BOX 10 50 210 90 IN BUTTON
  3235.  
  3236. BOX 240 50 210 90 IN BUTTON
  3237.  
  3238. xCYCLER 100 60 80 20 "" gmfreq
  3239. CSTR "28867" 28867
  3240. CSTR "44000" 44000
  3241. CSTR "80000" 80000
  3242. gadid 3
  3243.  
  3244. xHSLIDER 330 60 60 20 '' gmvol 0 64 0 ''
  3245. Update GMPlayconfig 4 '$gmvol Vol'
  3246.  
  3247. xHSLIDER 100 110 60 20 '' gmbuffer 16 1024 16 ''
  3248. Update GMPlayconfig 1 '$gmbuffer KB'
  3249.  
  3250. xCYCLER 100 85 80 20 "" gmpriority
  3251. CSTR "-1" -1
  3252. CSTR "0" 0
  3253. CSTR "1" 1
  3254. gadid 5
  3255.  
  3256. xHSLIDER 330 110 60 20 '' gmpoly 8 64 8 ''
  3257. Update GMPlayconfig 6 '$gmpoly'
  3258.  
  3259. TEXT 170 110 40 20 '' 24 NOBOX
  3260. gadid 1
  3261.  
  3262. xCHECKBOX 330 85 20 20 "" gmfilter "FILTER" "NOFILTER" OFF
  3263. gadid 2
  3264.  
  3265. TEXT 400 60 40 20 '' 24 NOBOX
  3266. gadid 4
  3267.  
  3268. TEXT 400 110 40 20 '' 24 NOBOX
  3269. gadid 6
  3270.  
  3271.  
  3272. xBUTTON 10 165 50 20 "HELP"
  3273. ifexists FILE SYS:Utilities/Multiview
  3274. CLI 'C:run >NIL: SYS:Utilities/Multiview PlayGUI:Docs/Help/GMPlay.help'
  3275. else
  3276. ezreq "You need Multiview in SYS:Utilities!" "Oh my god!" god
  3277. endif
  3278.  
  3279. xBUTTON -1 165 50 20 "_OK"
  3280. guiclose GMPlayconfig
  3281. guiopen Voreinstellung
  3282. ;----------------------------------------------------------------
  3283. Newfile P16Config
  3284.  
  3285. WINBIG -1 -1 286 185 "Play16 Config"
  3286. wintype 11010000
  3287.  
  3288. WINBACKGROUND IMAGE GuiPattern 0
  3289.  
  3290. VARPATH PlayGUI
  3291.  
  3292. image 0 0 P16gfx
  3293.  
  3294. xONCLOSE
  3295. guiclose P16Config
  3296. guiopen Voreinstellung
  3297.  
  3298. xAREA 200 2 80 10 BOX
  3299. CLI 'run >NIL: $BROWSERPATH http://narr.tsx.org'
  3300.  
  3301. CTEXT 30 62 "LOOP" XHelvetica.font 11 2 -1 00011
  3302. CTEXT 30 87 "FILTER" XHelvetica.font 11 2 -1 00011
  3303. CTEXT 30 112 "AUTOPLAY" XHelvetica.font 11 2 -1 00011
  3304.  
  3305. BOX 10 50 130 90 IN BUTTON
  3306.  
  3307. BOX 145 50 130 90 IN BUTTON
  3308.  
  3309. xBUTTON 160 60 100 20 "Set loop numbers"
  3310. Update ChangeLoop 1 'Loops:$P16LOOP'
  3311. guiopen ChangeLoop
  3312.  
  3313. xBUTTON 160 85 100 20 "Set sample buffer"
  3314. Update Sambuff 1 'Buffer:$SAMPLEBUFFER'
  3315. guiopen Sambuff
  3316.  
  3317. xCYCLER 160 110 100 20 "" OUTPUT
  3318. CSTR "Paula 8bit" Paula8
  3319. CSTR "Paula 14bit" Paula14
  3320. CSTR "Paula 14bitCal." Paula14c
  3321. CSTR "MPro" MPro
  3322. CSTR "AHI" AHI
  3323. gadid 4
  3324.  
  3325.  
  3326. xCHECKBOX 90 60 20 20 "" ASKP16LOOP "0" "1" OFF
  3327. gadid 1
  3328.  
  3329. if $ASKP16LOOP = 0
  3330. P16LOOP = 0
  3331. elseif $ASKP16LOOP = 1
  3332. P16LOOP = 1
  3333. endif
  3334.  
  3335. xCHECKBOX 90 85 20 20 "" P16FILTER "ON" "OFF" OFF
  3336. gadid 2
  3337.  
  3338. xCHECKBOX 90 110 20 20 "" SAMAUTO "ON" "OFF" OFF
  3339. gadid 3
  3340.  
  3341. xBUTTON 10 155 50 20 "HELP"
  3342. ifexists FILE SYS:Utilities/Multiview
  3343. CLI 'C:run >NIL: SYS:Utilities/Multiview PlayGUI:Docs/Help/P16.help'
  3344. else
  3345. ezreq "You need Multiview in SYS:Utilities!" "Oh my god!" god
  3346. endif
  3347.  
  3348.  
  3349. xBUTTON -1 155 50 20 "_OK"
  3350. guiclose P16Config
  3351. guiopen Voreinstellung
  3352.  
  3353. ;----------------------------------------------------------------
  3354. Newfile Themes
  3355.  
  3356. WINBIG -1 -1 260 240 "Themes Config"
  3357. wintype 11010000
  3358.  
  3359. WINBACKGROUND IMAGE GuiPattern 0
  3360.  
  3361. VARPATH PlayGUI
  3362.  
  3363. image -1 5 themesgfx
  3364.  
  3365. xONCLOSE
  3366. guiclose Themes
  3367. guiopen Voreinstellung
  3368.  
  3369. CTEXT 20 60 "Choose Theme..." XHelvetica.font 11 2 -1 00011
  3370. BOX 10 50 240 100 IN BUTTON
  3371.  
  3372. GAUGE 10 160 240 20 OUT BUTTON 3 0 0
  3373. gadid 100
  3374.  
  3375. xBUTTON 80 115 100 20 "Preview"
  3376. ifexists DIR $THEMEPATH
  3377. assign Themes: $THEMEPATH
  3378. gosub Themes OpenPattern
  3379. else
  3380. ezreq "Cannot find theme dir!" "Ok" ok
  3381. endif
  3382.  
  3383. xRoutine OpenPattern
  3384.  
  3385. ifexists FILE Themes:Pattern/PGpattern
  3386. loadimage Themes:Pattern/PGpattern PrevPattern Workbench
  3387. Update Themes 100 25
  3388. gosub Themes OpenSkin
  3389. else
  3390. ezReq "Cannot find theme element!" "Ok" ok
  3391. endif
  3392.  
  3393. xROUTINE OpenSkin
  3394. ifexists FILE Themes:Skin/main.iff
  3395. loadimage Themes:Skin/main.iff prevskin Workbench
  3396. Update Themes 100 50
  3397. gosub Themes OpenQuitSound
  3398. else
  3399. ezreq "Cannot find skin!" "Ok" ok
  3400. endif
  3401.  
  3402. xROUTINE OpenQuitSound
  3403. ifexists FILE Themes:Sounds/SoundEnd
  3404. Update Themes 100 75
  3405. gosub Themes OpenStartSound
  3406. else
  3407. ezreq "Cannot find quit sound" "Ok" ok
  3408. endif
  3409.  
  3410. xROUTINE OpenStartSound
  3411. ifexists FILE Themes:Sounds/SoundStart
  3412. Update Themes 100 100
  3413. guiopen Preview
  3414. else
  3415. ezreq "Cannot find start sound!" "Ok" ok
  3416. endif
  3417.  
  3418. xTEXTIN 20 85 160 20 '' THEMEPATH '' 200
  3419. gadid 80
  3420.  
  3421. xBUTTON 190 85 50 20 "Set"
  3422.  
  3423. ReqFile 0 0 200 400 "Choose theme dir..." DIR THEMEPATH #PLAYGUI:Themes/
  3424. Update Themes 80 '$THEMEPATH'
  3425.  
  3426. xBUTTON 10 200 60 20 "HELP"
  3427. ifexists FILE SYS:Utilities/Multiview
  3428. CLI 'C:run >NIL: SYS:Utilities/Multiview PlayGUI:Docs/Help/THEMES.help'
  3429. else
  3430. ezreq "You need Multiview in SYS:Utilities!" "Oh my god!" god
  3431. endif
  3432.  
  3433. xBUTTON 100 200 60 20 "_USE"
  3434. gosub PlayGUI OpenTheme
  3435. guiclose Themes
  3436. guiopen Voreinstellung
  3437.  
  3438. xBUTTON 190 200 60 20 "_OK"
  3439. THEME = NO
  3440. guiclose Themes
  3441. guiopen Voreinstellung
  3442. ;----------------------------------------------------------------
  3443.  
  3444. Newfile Preview
  3445.  
  3446. WINBIG -1 -1 275 240 "PREVIEW"
  3447. wintype 11010000
  3448. WINBACKGROUND IMAGE PrevPattern 0
  3449. VARPATH PlayGUI
  3450.  
  3451. xONLOAD
  3452.  
  3453. image 0 0 prevskin
  3454.  
  3455. xButton 5 200 130 20 "Test Startsound"
  3456. CLI 'C:run >NIL: $PLAY16PATH Themes:Sounds/SoundStart'
  3457.  
  3458. xButton 140 200 130 20 "Test Quitsound"
  3459. CLI 'C:run >NIL: $PLAY16PATH Themes:Sounds/SoundEnd'
  3460.  
  3461. xONCLOSE
  3462. freesound prevend
  3463. freesound prevstart
  3464. freeimage prevskin
  3465. freeimage PrevPattern
  3466. guiclose Preview
  3467.  
  3468. ;------------------------------------------------------------
  3469.  
  3470. Newfile PlugSet
  3471.  
  3472. WINBIG -1 -1 270 150 "PlugIn Config"
  3473. wintype 11010000
  3474. WINBACKGROUND IMAGE GuiPattern 0
  3475.  
  3476. VARPATH PlayGUI
  3477.  
  3478. image -1 5 plugingfx
  3479.  
  3480. xBUTTON 235 50 20 20 "<"
  3481. ReqFile 0 0 200 400 "Choose plone path..." LOAD PLONEPATH RAM:
  3482. Update PlugSet 1 $PLONEPATH
  3483.  
  3484. xBUTTON 235 75 20 20 "<"
  3485. ReqFile 0 0 200 400 "Choose skinner path..." LOAD SKINNERPATH RAM:
  3486. Update PlugSet 2 $SKINNERPATH
  3487.  
  3488. CTEXT 10 50 "PLONE path" XHelvetica.font 11 2 -1 00011
  3489.  
  3490. CTEXT 10 75 "SKINNER path" XHelvetica.font 11 2 -1 00011
  3491.  
  3492. XTEXTIN 90 50 140 20 '' PLONEPATH '' 200
  3493.        gadid 1
  3494.  
  3495. XTEXTIN 90 75 140 20 '' SKINNERPATH '' 200
  3496.        gadid 2
  3497.  
  3498. xBUTTON -1 120 40 20 "_OK"
  3499. guiclose PlugSet
  3500. guiopen Voreinstellung
  3501.  
  3502. ;----------------------------------------------------------------
  3503. Newfile PathConfig
  3504.  
  3505. WINBIG -1 -1 575 280 "Path Config"
  3506. wintype 11010001
  3507.  
  3508. WINBACKGROUND IMAGE GuiPattern 0
  3509.  
  3510. VARPATH PlayGUI
  3511.  
  3512. xONCLOSE
  3513. guiclose PathConfigConfig
  3514. guiopen Voreinstellung
  3515.  
  3516. CTEXT 10 240 "* Select PATH + FILE here" XHelvetica.font 11 2 -1 00011
  3517.  
  3518. CText 17 12 "Path Config" XHelvetica.font 11 2 -1 00011
  3519. Attr RESIZE 0000
  3520. BOX 11 10 100 21 OUT BUTTON
  3521. Attr RESIZE 0000
  3522.  
  3523. BOX 10 30 555 190 IN BUTTON
  3524.  
  3525. xBUTTON 255 40 20 20 "<"
  3526. ReqFile 0 0 200 400 "Choose hippo path..." LOAD HIPPOPATH $HIPPOPATH
  3527. Update PathConfig 50 $HIPPOPATH
  3528.  
  3529. xBUTTON 255 65 20 20 "<"
  3530. ReqFile 0 0 200 400 "Choose play16 path..." LOAD PLAY16PATH $PLAY16PATH
  3531. Update PathConfig 51 $PLAY16PATH
  3532.  
  3533. xBUTTON 255 90 20 20 "<"
  3534. ReqFile 0 0 200 400 "Choose mpega path..." LOAD MPEGAPATH $MPEGAPATH
  3535. Update PathConfig 52 $MPEGAPATH
  3536.  
  3537. xBUTTON 255 115 20 20 "<"
  3538. ReqFile 0 0 200 400 "Choose GMPlay path..." LOAD GMPLAYPATH $GMPLAYPATH
  3539. Update PathConfig 62 $GMPLAYPATH
  3540.  
  3541. xBUTTON 255 140 20 20 "<"
  3542. ReqFile 0 0 200 400 "Choose mod path..." LOAD MODPATH $MODPATH
  3543. Update PathConfig 53 $MODPATH
  3544.  
  3545. xBUTTON 255 165 20 20 "<"
  3546. ReqFile 0 0 200 400 "Choose sample path..." LOAD SAMPLEPATH $SAMPLEPATH
  3547. Update PathConfig 54 $SAMPLEPATH
  3548.  
  3549. xBUTTON 255 190 20 20 "<"
  3550. ReqFile 0 0 200 400 "Choose launch path..." LOAD LAUNCHPATH $LAUNCHPATH
  3551. Update PathConfig 55 $LAUNCHPATH
  3552.  
  3553. xBUTTON 535 40 20 20 "<"
  3554. ReqFile 0 0 200 400 "Choose scope path..." LOAD SCOPEPATH $SCOPEPATH
  3555. Update PathConfig 56 $SCOPEPATH
  3556.  
  3557. xBUTTON 535 65 20 20 "<"
  3558. ReqFile 0 0 200 400 "Choose mod copy path..." LOAD COPYPATH $COPYPATH
  3559. Update PathConfig 57 $COPYPATH
  3560.  
  3561. xBUTTON 535 90 20 20 "<"
  3562. ReqFile 0 0 200 400 "Choose mod copy path..." LOAD MPGCOPYPATH $MPGCOPYPATH
  3563. Update PathConfig 58 $MPGCOPYPATH
  3564.  
  3565. xBUTTON 535 115 20 20 "<"
  3566. ReqFile 0 0 200 400 "Choose sample copy path..." LOAD COPYPATH2 $COPYPATH2
  3567. Update PathConfig 59 $COPYPATH2
  3568.  
  3569. xBUTTON 535 140 20 20 "<"
  3570. ReqFile 0 0 200 400 "Choose MIDI copy path..." LOAD MIDICOPYPATH $MIDICOPYPATH
  3571. Update PathConfig 63 $MIDICOPYPATH
  3572.  
  3573. xBUTTON 535 165 20 20 "<"
  3574. ReqFile 0 0 200 400 "Choose browser path..." LOAD BROWSERPATH $BROWSERPATH
  3575. Update PathConfig 61 $BROWSERPATH
  3576.  
  3577. xBUTTON 535 190 20 20 "<"
  3578. ReqFile 0 0 200 400 "Choose yam path..." LOAD YAMPATH $YAMPATH
  3579. Update PathConfig 60 $YAMPATH
  3580.  
  3581. CTEXT 20 43 "HIPPO path *" XHelvetica.font 11 2 -1 00011
  3582. CTEXT 20 68 "Play16 path *" XHelvetica.font 11 2 -1 00011
  3583. CTEXT 20 93 "MPEGA path *" XHelvetica.font 11 2 -1 00011
  3584. CTEXT 20 118 "GMPLAY path *" XHelvetica.font 11 2 -1 00011
  3585. CTEXT 20 143 "MOD path" XHelvetica.font 11 2 -1 00011
  3586. CTEXT 20 168 "SAMPLE path" XHelvetica.font 11 2 -1 00011
  3587. CTEXT 20 193 "LAUNCH path" XHelvetica.font 11 2 -1 00011
  3588. CTEXT 290 43 "SCOPE path" XHelvetica.font 11 2 -1 00011
  3589. CTEXT 290 68 "MODCOPY path" XHelvetica.font 11 2 -1 00011
  3590. CTEXT 290 93 "MPGCOPY path" XHelvetica.font 11 2 -1 00011
  3591. CTEXT 290 118 "SAMPLECOPY path" XHelvetica.font 11 2 -1 00011
  3592. CTEXT 290 143 "MIDICOPY path" XHelvetica.font 11 2 -1 00011
  3593. CTEXT 290 168 "BROWSER path *" XHelvetica.font 11 2 -1 00011
  3594. CTEXT 290 193 "YAM path *" XHelvetica.font 11 2 -1 00011
  3595.  
  3596. XTEXTIN 110 40 140 20 '' HIPPOPATH '' 200
  3597.        gadid 50
  3598.  
  3599. XTEXTIN 110 65 140 20 '' PLAY16PATH '' 200
  3600.        gadid 51
  3601.  
  3602. XTEXTIN 110 90 140 20 '' MPEGAPATH '' 200
  3603.        gadid 52
  3604.  
  3605. XTEXTIN 110 140 140 20 '' MODPATH '' 200
  3606.        gadid 53
  3607.  
  3608. XTEXTIN 110 165 140 20 '' SAMPLEPATH '' 200
  3609.        gadid 54
  3610.  
  3611. XTEXTIN 110 190 140 20 '' LAUNCHPATH '' 200
  3612.        gadid 55
  3613.  
  3614. XTEXTIN 390 40 140 20 '' SCOPEPATH '' 200
  3615.        gadid 56
  3616.  
  3617. XTEXTIN 390 65 140 20 '' COPYPATH '' 200
  3618.        gadid 57
  3619.  
  3620. XTEXTIN 390 90 140 20 '' MPGCOPYPATH '' 200
  3621.        gadid 58
  3622.  
  3623. XTEXTIN 390 115 140 20 '' COPYPATH2 '' 200
  3624.        gadid 59
  3625.  
  3626. XTEXTIN 390 190 140 20 '' YAMPATH '' 200
  3627.        gadid 60
  3628.  
  3629. XTEXTIN 390 165 140 20 '' BROWSERPATH '' 200
  3630.        gadid 61
  3631.  
  3632. XTEXTIN 110 115 140 20 '' GMPLAYPATH '' 200
  3633.        gadid 62
  3634.  
  3635. XTEXTIN 390 140 140 20 '' MIDICOPYPATH '' 200
  3636.        gadid 63
  3637.  
  3638. xBUTTON 525 240 40 20 "HELP"
  3639. ifexists FILE SYS:Utilities/Multiview
  3640. CLI 'C:run >NIL: SYS:Utilities/Multiview PlayGUI:Docs/Help/PATHS.help'
  3641. else
  3642. ezreq "You need Multiview in SYS:Utilities!" "Oh my god!" god
  3643. endif
  3644.  
  3645.  
  3646. xBUTTON -1 240 40 20 "_OK"
  3647. guiclose PathConfig
  3648. guiopen Voreinstellung
  3649.  
  3650. xRoutine SavePaths
  3651. SET BUFFERS 4000
  3652.  
  3653. .PlayGUIconfig = 'G4C\n\nxOnLoad\n'
  3654.  
  3655. appvar .PlayGUIconfig '\nPlayGUI/HIPPOPATH = "$HIPPOPATH"'
  3656. appvar .PlayGUIconfig '\nPlayGUI/PLAY16PATH = "$PLAY16PATH"'
  3657. appvar .PlayGUIconfig '\nPlayGUI/MODPATH = "$MODPATH"'
  3658. appvar .PlayGUIconfig '\nPlayGUI/SAMPLEPATH = "$SAMPLEPATH"'
  3659. appvar .PlayGUIconfig '\nPlayGUI/SKINSELECT = "$SKINSELECT"'
  3660. appvar .PlayGUIconfig '\nPlayGUI/PLONEPATH = "$PLONEPATH"'
  3661. appvar .PlayGUIconfig '\nPlayGUI/LAUNCHPATH = "$LAUNCHPATH"'
  3662. appvar .PlayGUIconfig '\nPlayGUI/SCOPEPATH = "$SCOPEPATH"'
  3663. appvar .PlayGUIconfig '\nPlayGUI/COPYPATH = "$COPYPATH"'
  3664. appvar .PlayGUIconfig '\nPlayGUI/COPYPATH2 = "$COPYPATH2"'
  3665. appvar .PlayGUIconfig '\nPlayGUI/YAMPATH = "$YAMPATH"'
  3666. appvar .PlayGUIconfig '\nPlayGUI/BROWSERPATH = "$BROWSERPATH"'
  3667. appvar .PlayGUIconfig '\nPlayGUI/AUTOPLAY = "$AUTOPLAY"'
  3668. appvar .PlayGUIconfig '\nPlayGUI/PLONESTART = "$PLONESTART"'
  3669. appvar .PlayGUIconfig '\nPlayGUI/STARTMODINFO = "$STARTMODINFO"'
  3670. appvar .PlayGUIconfig '\nPlayGUI/P16LOOP = "$P16LOOP"'
  3671. appvar .PlayGUIconfig '\nPlayGUI/P16FILTER = "$P16FILTER"'
  3672. appvar .PlayGUIconfig '\nPlayGUI/vol2 = "$vol2"'
  3673. appvar .PlayGUIconfig '\nPlayGUI/GuiPattern = "$GuiPattern"'
  3674. appvar .PlayGUIconfig '\nPlayGUI/STARTSOUND = "$STARTSOUND"'
  3675. appvar .PlayGUIconfig '\nPlayGUI/QUITSOUND = "$QUITSOUND"'
  3676. appvar .PlayGUIconfig '\nPlayGUI/THEME = "$THEME"'
  3677. appvar .PlayGUIconfig '\nPlayGUI/THEMEPATH = "$THEMEPATH"'
  3678. appvar .PlayGUIconfig '\nPlayGUI/TQUITSOUND = "$TQUITSOUND"'
  3679. appvar .PlayGUIconfig '\nPlayGUI/TSTARTSOUND = "$TSTARTSOUND"'
  3680. appvar .PlayGUIconfig '\nPlayGUI/SAMAUTO = "$SAMAUTO"'
  3681. appvar .PlayGUIconfig '\nPlayGUI/SKINNERPATH = "$SKINNERPATH"'
  3682. appvar .PlayGUIconfig '\nPlayGUI/SAMPLEBUFFER = "$SAMPLEBUFFER"'
  3683. appvar .PlayGUIconfig '\nPlayGUI/OUTPUT = "$OUTPUT"'
  3684. appvar .PlayGUIconfig '\nPlayGUI/AUTOSAVE = "$AUTOSAVE"'
  3685. appvar .PlayGUIconfig '\nPlayGUI/MPEGAPATH = "$MPEGAPATH"'
  3686. appvar .PlayGUIconfig '\nPlayGUI/MPGCOPYPATH = "$MPGCOPYPATH"'
  3687. appvar .PlayGUIconfig '\nPlayGUI/freq = "$freq"'
  3688. appvar .PlayGUIconfig '\nPlayGUI/quality = "$quality"'
  3689. appvar .PlayGUIconfig '\nPlayGUI/number = "$number"'
  3690. appvar .PlayGUIconfig '\nPlayGUI/audiofilter = "$audiofilter"'
  3691. appvar .PlayGUIconfig '\nPlayGUI/audiobuffer = "$audiobuffer"'
  3692. appvar .PlayGUIconfig '\nPlayGUI/buffersize = "$buffersize"'
  3693. appvar .PlayGUIconfig '\nPlayGUI/STARTMODULE = "$STARTMODULE"'
  3694. appvar .PlayGUIconfig '\nPlayGUI/STARTMOD = "$STARTMOD"'
  3695. appvar .PlayGUIconfig '\nPlayGUI/STARTABOUT = "$STARTABOUT"'
  3696. appvar .PlayGUIconfig '\nPlayGUI/GMPLAYPATH = "$GMPLAYPATH"'
  3697. appvar .PlayGUIconfig '\nPlayGUI/MIDICOPYPATH = "$MIDICOPYPATH"'
  3698. appvar .PlayGUIconfig '\nPlayGUI/gmfreq = "$gmfreq"'
  3699. appvar .PlayGUIconfig '\nPlayGUI/gmvol = "$gmvol"'
  3700. appvar .PlayGUIconfig '\nPlayGUI/gmbuffer = "$gmbuffer"'
  3701. appvar .PlayGUIconfig '\nPlayGUI/gmpoly = "$gmpoly"'
  3702. appvar .PlayGUIconfig '\nPlayGUI/gmpriority = "$gmpriority"'
  3703. appvar .PlayGUIconfig '\nPlayGUI/gmfilter = "$gmfilter"'
  3704. appvar .PlayGUIconfig '\nPlayGUI/playtimer = "$playtimer"'
  3705. appvar .PlayGUIconfig '\nGuiQuit #This'
  3706.  
  3707. copy env:.PlayGUIconfig PLAYGUI:SYS/PlayGUIconfig
  3708.  
  3709. ezreq "Config saved!" "Thanx!" thanx
  3710.  
  3711.  
  3712.  
  3713.